Hallo,
ich finde keine Möglichkeit einen im Textfeld markierten Text an eine Variable zu übergeben. Vielleicht hat jeamd einen Tip.
Besten Dank Chris
Hi
evtl. sowas.
Beispiel für Userform mit Zwei Textboxen und einem Button.
Code:
'Markierten Text aus Textbox1 in Textbox2 anzeigen
Private Sub CommandButton1_Click()
Dim obj As Object
Set obj = GetObject("New:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")
obj.GetFromClipboard
TextBox2 = obj.GetText
Set obj = Nothing
End Sub
Private Sub TextBox1_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Application.SendKeys ("^C")
End Sub
Gruß Elex
Danke Elex - funktioniert super!!!
Gruß Christian
textbox auf userform?
Dim s As String
s = TextBox1.SelText
Mehr braucht es nicht.
Oder für das andere Beispiel:
Textbox2.text = TextBox1.SelText
Da muss man wahrlich nicht die Zwischenablage bemühen