Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Text aus rechter Maustaste kopieren

Betrifft: Text aus rechter Maustaste kopieren von: Thomas
Geschrieben am: 01.09.2014 21:27:33

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

  

Betrifft: AW: Text aus rechter Maustaste kopieren von: Martin
Geschrieben am: 01.09.2014 21:53:29

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


  

Betrifft: AW: Text aus rechter Maustaste kopieren von: Thomas
Geschrieben am: 01.09.2014 22:01:01

Hallo Martin!
vielen Dank für deine Hilfe!
Funktioniert einwandfrei!!!
VG
Thoams


  

Betrifft: Hinweis: das geht schief bei leerer TextBox! owT von: Matthias L
Geschrieben am: 01.09.2014 22:10:27




  

Betrifft: ....also noch ein kleiner Einzeiler.... von: Martin
Geschrieben am: 01.09.2014 22:16:16

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


  

Betrifft: Eine Alternative... von: Case
Geschrieben am: 02.09.2014 00:13:29

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



  

Betrifft: so kopierst Du aber das Objekt von: Matthias L
Geschrieben am: 02.09.2014 01:28:27

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


  

Betrifft: AW: so kopierst Du aber das Objekt von: Mullit
Geschrieben am: 02.09.2014 02:12:51

Hallo,

kommt darauf an....

  • Auf einer Userform den Text.

  • Auf einem Tabellenblatt das Objekt.

  • Gruß,


      

    Betrifft: ok, akzeptiert :-) Danke ...owT von: Matthias L
    Geschrieben am: 02.09.2014 08:17:45




     

    Beiträge aus den Excel-Beispielen zum Thema "Text aus rechter Maustaste kopieren"