Interaktive Textbox
17.10.2018 09:58:33
Aljoscha
ich hoffe ich finde auf diesem Wege Hilfe bei meinem kleinen Problem. In anderen Forenbeiträgen fand ich zwar ähnliche, jedoch für meinen Fall weniger hilfreiche Lösungsansätze.
Ich habe vor eine Textbox in einem Arbeitsblatt zu platzieren. Die TB soll eine Eingabeaufforderung enthalten, welche verschwindet sobald man in das Eingabefeld klickt.
Mein Ansatz bisher:
Private Sub TextBox1_Enter()
If TextBox1.Value = "Clientennummer eingeben" Then
TextBox1.ForeColor = &H80000008
TextBox1.Text = ""
End If
End Sub
Private Sub TextBox1_AfterUpdate()
If TextBox1.Value = "" Then
TextBox1.BackColor = &H8080FF
TextBox1.ForeColor = &HC0C0C0
TextBox1.Value = "Clientennummer eingeben"
Else
TextBox1.BackColor = &H80FF80
End If
End Sub
Ich habe es aus Interesse mal in einer Userform ausprobiert. Da klappt es :)
Gibt es einen ähnlichen Befehl für das Arbeitsblatt ?
Vielen Dank schonmal im Voraus :)
Grüße aus Frankfurt