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
Das ganze funktioniert jedoch nur ein einziges Mal. Klicke ich erneute z. B. in die erste Textbox bleibt die Rahmenfarbe unverändert. Springe ich mit Tab von Textbox zu Textbox funktioniert das auch. Das Problem besteht, wenn ich tatsächlich in die Textbox klicke. Ich habe auch bereits ein MouseUp-Event zusätzlich hinterlegt gehabt...auch das ohne Erfolg. Übersehe ich etwas?Vielen Dank an euch für die Hilfe.
LG,
Johannes