Ausschneiden in TextBox
26.05.2006 21:26:47
Joachim
ich habe in einer UserForm eine TextBox für Kurz-Memos.
Nun kommt es vor das hier einzelne Worte ausgeschnitten und später
wieder eingefügt werden müssen.
Zu diesem Zweck möchte ich über ein cmdButton markierten Text Ausschneiden
und einer String-Variable zuweisen. (funktioniert auch)
Nur wie bekomme ich den markierten Text aus meinem Textfeld?
Hier mein Code:
Private Sub cmdAusschneiden_Click()
If TextBox2.SelLength = 0 Then
MsgBox "Kein Text zum Ausschneiden markiert!", vbInformation
Exit Sub
End If
kop = TextBox2.SelText
End Sub
Vielen Dank im Voraus!
Gruß Joachim
Anzeige