noch eine Variante, die auch den Zustand leere Textbox berücksichtigt:
Code:
Private Sub kontrolle_Change()
With Me.kontrolle
If .Value = "ok" Then
.BackColor = RGB(0, 255, 0)
Else
If Len(.Value) Then
.BackColor = RGB(255, 0, 0)
Else
.BackColor = RGB(255, 255, 255)
End If
End If
End With
End Sub
Gruß, Uwe
Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:1 Nutzer sagt Danke an Kuwer für diesen Beitrag 28 • Xenon85