Clever-Excel-Forum

Clever-Excel-Forum > Office-Anwendungen > Excel > Userform Text mit Klick entfernen
Normale Version: Userform Text mit Klick entfernen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4

StrammerMax

10.01.2019, 09:11
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

Case

10.01.2019, 09:17
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

10.01.2019, 09:27
Super, vielen Dank. Ich probiere es gleich aus.

EDIT: Funktioniert einwandfrei :)

Case

10.01.2019, 09:29
Hallo, :19:

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

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

StrammerMax

10.01.2019, 10:00
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

Case

10.01.2019, 10:01
Hallo, :19:

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

StrammerMax

10.01.2019, 10:03
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:

Case

10.01.2019, 10:05
Hallo, :19:

dann muss ich deine Datei sehen. :21:

Klaus-Dieter

10.01.2019, 10:06
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

10.01.2019, 10:07
Scheint die Fortsetzung von hier zu sein
Seiten: 1 2 3 4
Clever-Excel-Forum > Office-Anwendungen > Excel > Userform Text mit Klick entfernen