In Textfeld markierten Text an Variable übergeben

[chris49]

Hallo,
ich finde keine Möglichkeit einen im Textfeld markierten Text an eine Variable zu übergeben. Vielleicht hat jeamd einen Tip.
Besten Dank Chris

[Elex]

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

[chris49]

Danke Elex - funktioniert super!!!

Gruß Christian

[Jeanie]

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