Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Ausschneiden in TextBox
26.05.2006 21:26:47
Joachim
Hallo Excel-User,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausschneiden in TextBox
26.05.2006 21:56:41
Josef
Hallo Joachim!
Vieleicht so?
Private Sub cmdAusschneiden_Click()
If TextBox2.SelLength = 0 Then
  MsgBox "Kein Text zum Ausschneiden markiert!", vbInformation
  Exit Sub
End If
kop = TextBox2.SelText
TextBox2 = Replace(TextBox2, kop, "")
End Sub


'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Ausschneiden in TextBox
27.05.2006 07:03:48
Joachim
Spät am Abend und dennoch super Ergebnisse!!
Wahnsinn!!
Nochmals vielen Dank für die schnelle Hilfe.
Gruß Joachim

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige