Anzeige
Archiv - Navigation
652to656
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
652to656
652to656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
an best. Pos. Text in Textbox markieren
19.08.2005 18:44:06
Edwin
Hallo,
ich habe folgenden VBA um meinen Text in der Textbox zu markieren.

Private Sub txtAgentur_Enter()
With txtAgentur
.SetFocus
.SelStart = 5
.SelLength = 6
End With
End Sub

Über einen ComandButton funktioniert der VBA, nicht aber über _Enter.
Ich möchte gerne, dass wenn ich in die Textbox springe mein Text markiert wird.
Warum geht das nicht?
Gruß
Edwin

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: an best. Pos. Text in Textbox markieren
19.08.2005 18:51:25
Matthias
Hallo Edwin,
erstmal die Eigenschaft EnterFieldBehaviour auf 1, dann:

Private Sub TextBox1_Enter()
With TextBox1
'.SetFocus
.SelStart = 5
.SelLength = 6
End With
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
With TextBox1
'.SetFocus
.SelStart = 5
.SelLength = 6
End With
End Sub

Das SetFocus brauchst du nicht, das ist ja eh der Fall.
Gruß Matthias
AW: an best. Pos. Text in Textbox markieren
19.08.2005 20:06:56
Edwin
Hallo Matthias,
super, vielen Dank!
Gruß
Edwin
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige