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
Der Code funktioniert, wenn ich ihn mit F8 durchdrücke sehr gut. Allerdings wird er nicht durch die "Enter" und "Afterupdate" Events ausgelöst. Liegt das daran, dass die TB in einem Arbeitsblatt und nicht in einer Userform liegt? 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