kleur van textbox aanpassen aan de hand van een tekst in een cel

[Eastw00d]

in bijgevoegd bestand wil ik de kleur van de textbox laten veranderen afhankelijk van de waarde in cel A1. ik had de volgede code bedacht.

Private Sub TextBox1_Change()
if worksheets("blad1").range("A1").value=("ja")
then
texrbox1.BackColor = vbRed
else goto end
End If
: End
End Sub

Helaas doet deze niet wat ik wil

 

[snb]

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then TextBox1.BackColor = IIf(Target = "ja", vbRed, vbWhite)
End Sub

 

[edmoor]

Het kan zo:

Private Sub TextBox1_Change()
    TextBox1.BackColor = IIf(Sheets("Blad1").Range("A1") = "ja", vbRed, vbWhite)
End Sub

Maar ik denk dat je die van snb bedoelt.
Dan is achter de textbox geen code nodig.

 

[AHulpje]

Experimenteer hier eens mee: