Enter-Event bei TextBox funktioniert nur ein Mal?
29.05.2019 18:47:12
Johannes
ich habe in einer Userform nur zwei Textboxen platziert.
Wenn der Benutzer sich in einer der Textboxen befindet, soll sich der Rahmen der Textbox entsprechend dem unten angehängten Code ändern. Beim Exit der Textbox soll die Rahmenfarbe dann wieder auf ihren ursprünglichen Wert zurückgesetzt werden...eigentlich recht trivial.
Private Sub TextBox1_Enter()
TextBox1.BorderColor = RGB(142, 169, 219)
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1.BorderColor = RGB(217, 217, 217)
End Sub
Private Sub TextBox2_Enter()
TextBox2.BorderColor = RGB(142, 169, 219)
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BorderColor = RGB(217, 217, 217)
End Sub
Vielen Dank an euch für die Hilfe.
LG,
Johannes
Anzeige