VBA Textbox Hintergrundfarbe dynamisch ändern

[Xenon85]

Guten Morgen, 

ich komme mal wieder mit etwas speziellem.

Ich habe eine Userform erstellt in der mehrere Textboxen sind.

Wenn nun in den Textboxen ein bestimmter Text steht soll sich die Hintergrundfarbe ändern.

Wenn in der Textbox "kontrolle" der Text "ok" steht soll der Hintergrund grün werden, bei allen anderen eingaben soll er rot sein. 

vielleicht kann mir da jemand bei helfen. 


Danke

[Fennek]

Hallo,

die Eigenschaft ist ".backcolor".

Die Farbe wird entwedern mit den VBA-Konstanten, z.B. vbRed, oder den RGB-Code als long übergeben (Button.BackColor = &H8000000F)

mfg

[Xenon85]

wie sieht dann der Code dazu aus?

[Fennek]

Code:

Private Sub Kontrolle_Change()
With Me.Kontrolle
    If .Value = "ok" Then .BackColor = vbGreen Else .BackColor = vbRed

End With
End Sub

[Kuwer]

Hallo,

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

[Xenon85]

Habs hinbekommen, 

vielen Dank