Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1376to1380
1376to1380
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Text aus rechter Maustaste kopieren

Forumthread: Text aus rechter Maustaste kopieren

Text aus rechter Maustaste kopieren
01.09.2014 21:27:33
Thomas
Hallo!
Ich brauche kurz Eure Hilfe.
Ich möchte mit der rechten Maustaste aus einer TextBox den Text kopieren.
Könnt ihr mir Helfen, wie hier der Quellcode dazu lautet?
Vielen Dank

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Text aus rechter Maustaste kopieren
01.09.2014 21:53:29
Martin
Hallo Thomas,
hier mal ein Beispiel:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Dim objClipboard As Object
If Button = 2 Then
Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With objClipboard
.SetText TextBox1.Value
.PutInClipboard
End With
Set objClipboard = Nothing
End If
End Sub
Viele Grüße
Martin

Anzeige
AW: Text aus rechter Maustaste kopieren
01.09.2014 22:01:01
Thomas
Hallo Martin!
vielen Dank für deine Hilfe!
Funktioniert einwandfrei!!!
VG
Thoams

Hinweis: das geht schief bei leerer TextBox! owT
01.09.2014 22:10:27
Matthias

....also noch ein kleiner Einzeiler....
01.09.2014 22:16:16
Martin
Hallo Thomas,
der Hinweis von Matthias ist berechtigt. Es muss nur eine Zeile ergänzt werden:
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
Dim objClipboard As Object
If TextBox1 = Empty Then Exit Sub
If Button = 2 Then
Set objClipboard = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
With objClipboard
.SetText TextBox1.Value
.PutInClipboard
End With
Set objClipboard = Nothing
End If
End Sub
Viele Grüße
Martin

Anzeige
Eine Alternative...
02.09.2014 00:13:29
Case
Hallo, :-)
... zu "CreateObject..." könnte z. B. so aussehen:
Option Explicit
Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As  _
Single, ByVal Y As Single)
If Button = 2 Then
With TextBox2
.SelStart = 0
.SelLength = Len(.Text)
.Copy
.SelStart = Len(.Text) ' 0 dann ist der Cursor am Anfang bzw. ohne diese Zeile  _
bleibt der Text markiert
End With
End If
End Sub
Servus
Case

Anzeige
so kopierst Du aber das Objekt
02.09.2014 01:28:27
Matthias
Hallo
Zitat
Ich möchte mit der rechten Maustaste aus einer TextBox den Text kopieren.
Mit dieser Alternative kopierst Du aber das Objekt(Textbox) und nicht den Inhalt der Textbox ;-)
Gruß Matthias

AW: so kopierst Du aber das Objekt
02.09.2014 02:12:51
Mullit
Hallo,
kommt darauf an....
  • Auf einer Userform den Text.

  • Auf einem Tabellenblatt das Objekt.

    • Gruß,

    Anzeige
    ok, akzeptiert :-) Danke ...owT
    02.09.2014 08:17:45
    Matthias

    Forumthreads zu verwandten Themen

    String suchen und kopieren
    Daniel

    Hallo,
    ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
    Ich brauche ein etwas allgemeineren Code.
    Ok was ich habe sind folgende Inputdaten:
    .............A......B.........C.............D
    1
    2............
    12.08.2008 14:55:00
    Thread-ID: 1001221
    9 Beiträge
    Anzeige
    kopieren in eine zelle aus einer erstellten liste
    Merle


    Ich habe ein Promblem. Und zwar habe ich ein Formular erstellt indem es eine Liste gibt. Ich möchte nun den jeweils ausgesuchten Lieferanten in eine andere Zelle kopieren. Dies wäre kein Problem, wenn es immer die gleich Zelle wäre aber die Zelle unter der A16 Zelle ändert sich ja nach aus...
    05.09.2008 13:01:59
    Thread-ID: 1007653
    4 Beiträge
    Zeile kopieren wenn wert in Zelle
    Andreas

    hallo zusammen
    in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
    07.09.2008 20:32:00
    Thread-ID: 1008007
    3 Beiträge
    Zeile suchen und löschen bzw kopieren
    Henner

    Hallo VBAler,
    ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
    10.09.2008 16:56:00
    Thread-ID: 1008851
    5 Beiträge
    Textinhalte aus Zellen zusammenkopieren
    zehetner

    Liebe Profis,
    ich habe die Ergebnisse einer Befragung in ein Excel-Sheet eingegeben, jeder Befragte in ein Registerblatt. Nun möchte ich die Antworten der Befragten, die in Textfeldern (immer in den selben, zB E145 stehen) gesammelt in eine neue Tabelle bringen.
    Ziel ist es, die Antwort...
    21.09.2008 18:29:25
    Thread-ID: 1011343
    2 Beiträge
    Texte aus verschiedenen Registerblättern kopieren
    zehetner

    Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
    Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
    Vielen Dank nochmals
    22.09.2008 05:54:07
    Thread-ID: 1011369
    2 Beiträge
    Text (Datum) aus Zeile mit Zeilenbruch auslesen
    Iro

    Hallo,
    ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
    1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
    01.10.2008 23:00:06
    Thread-ID: 1013778
    4 Beiträge
    Text aus einer Zelle in ein anderes Tabellenblatt
    grigolet

    Hallo,
    ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
    09.10.2008 11:24:26
    Thread-ID: 1015295
    2 Beiträge
    Filtern, gefilterte Daten benutzen, Suchen und Aus
    Merle


    Hallo alle zusammen,
    ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
    https://www.herber.de/bbs/user/55986.xls
    In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
    13.10.2008 15:48:00
    Thread-ID: 1016087
    3 Beiträge
    Daten aus Sheet suchen und in Zelle schreiben
    Robert

    Hallo Excel Profis!
    Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
    Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
    Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
    Quartals sucht und diese dann auf "Sheet 1" überträg...
    20.11.2008 12:36:00
    Thread-ID: 1026379
    9 Beiträge
    Zeilen kopieren wenn wert in Zelle
    Andreas

    hallo zusammen
    finde für meine herausforderung nichts passendes in der recherche. :-(
    ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
    Nun möchte ich folgende Schritte automatisieren
    Erst...
    24.11.2008 17:08:00
    Thread-ID: 1027397
    3 Beiträge
    Anzeige
    Zahlenfolge suchen und in neue Tabelle kopieren
    Günter

    Hallo,
    ich habe da ein kleines Problem, vielleicht kann mir hier geholfen werden.
    In einer Tabelle stehen in der ersten Spalte (A) die fld. Nr. 1 bis 10 und in der Spalte (B) dazu gehörige Zahlenreihen, in der weiteren Spalte (D) fld. Nr. 11 bis 20 und in Spalte (E) wieder die dazu gehö...
    04.12.2008 00:39:00
    Thread-ID: 1030003
    4 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Anzeige