Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

SetFocus u.a.

Betrifft: SetFocus u.a. von: Krauti
Geschrieben am: 17.08.2004 11:52:08

Liebes Forum,

ich würde gern umsetzen,

1. dass in einer Textbox bereits ein "Hilfetext" hinsichtlich der Eingabe enthalten ist. Wenn man dann in die Textbox klickt, soll der gesamte Text markiert werden, sodass man ihn leicht überschreiben kann.

2. dass, wenn man eine Box vor dem Feld auswählt, der Cursor in die Textbox dahinter springt und wiederum den Hilfetext automatisch markiert und man ihn leicht überschreiben kann.

Das 2. Problem hatte ich gedacht, mit

If ChckBox1.Value = True Then
TxtBox1.Enabled = True
TxtBox1.SetFocus
i = Len(TxtBox1.Text)
TxtBox1.SelStart = 0
TxtBox1.SelLength = i
Else
TxtBox1.Enabled = False
TxtBox1.Text = "[Hilfetext]"
End If

zu lösen. Das Ganze funktioniert jedoch nur in einer Userform.

Habt Ihr vielleicht eine Idee?

Herzlichen Dank und schöne Grüße
Krauti

  


Betrifft: AW: SetFocus u.a. von: Hans W. Herber
Geschrieben am: 18.08.2004 07:28:11

Hallo,

verwende bei Tabellenblatt-TextBoxes statt der SetFocus- die Activate-Eigenschaft.

Gruss hans


  


Betrifft: Herzlichen Dank von: Krauti
Geschrieben am: 18.08.2004 09:20:33

und schöne Grüße
Krauti