Userform Text mit Klick entfernen

[StrammerMax]

Hallo Leute,

ich bastle gerade eine Userform.
Dort gibt es u.a. ein Textfeld für den Projekttitel.

Ich habe es jetzt so initialisiert, dass beim Start "Bitte geben sie einen Projekttitel ein" im Feld steht.

Aus ergonomischen Gründen soll der User diesen Text nicht jedes mal manuell entfernen müssen. Der Text soll verschwinden, sobald der User den Curser in das Textfeld setzt.

Weiß jemand, wie das geht?

Code:

Private Sub UserForm_Initialize()

'Einträge für die Schaltflächen

meinFormular.Projekttitel.Value = "Gebe Sie einen Projekttitel ein"



End Sub

[00202]

Hallo, :19:

so: :21:

Code:

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    TextBox1 = ""
End Sub

"TextBox1" musst du natürlich anpassen!

[StrammerMax]

Super, vielen Dank. Ich probiere es gleich aus.

EDIT: Funktioniert einwandfrei :)

[00202]

Hallo, :19:

oder probiere es so: :21:
[attachment=21802]

Da wird auch der Text in der ersten TextBox gleich komplett markiert.

[StrammerMax]

An der Stelle .setFocus läuft er bei mir in einen Fehler.

Das Textfeld hat den technischen Namen Projekttitel

Code:

Private Sub UserForm_Activate()
   With Projekttitel
       .Text = "Geben Sie einen Projekttitel ein"
       .SetFocus: .SelStart = 0: .SelLength = Len(.Text)
   End With
End Sub

[00202]

Hallo, :19:

läuft in meiner Beispieldatei anstandslos durch. :21:

[StrammerMax]

Habe den Fehler, ich hatte die Activate Methode hinter der MouseDown Methode - das konnte natürlich nicht funktionieren :20:

Bin noch recht neu bei VBA - da passiert sowas schon mal :05:

[00202]

Hallo, :19:

dann muss ich deine Datei sehen. :21:

[Klaus-Dieter]

Hallo,

läuft auf einen Fehler ist natürlich eine sehr umfassende Beschreibung des  auftretenden Problems. Zeige doch mal deinen Quelltext, eventuell kann man da etwas sehen.

[Storax]

Scheint die Fortsetzung von hier zu sein