Als cel waarde is chr(254)

[Atwist]

Hallo
Ik probeer een Commandbutton van kleur te veranderen door twee cellen met een bepaalt teken chr(254).
Heb een macro gemaakt die zou moeten werken, nee dus.
kan hierin de fout niet vinden.

Private Sub row2()
    If Range("E2").Value = Chr(254) Then
    If Range("G2").Value = Chr(254) Then
    CommandButton1.BackColor = vbGreen
    Else
    CommandButton1.BackColor = vbRed
    End If
    
End Sub

 

[JEC.]

Sub jec()
ActiveSheet.CommandButton1.BackColor = IIf([E2] = Chr(254) and [G2] = Chr(254), vbGreen, vbRed)
End Sub

 

[edmoor]

Wat is karakter 254 bij jou?
En doe het eens zo:

Private Sub row2()
    If Range("E2").Value = Chr(254) Then CommandButton1.BackColor = IIf(Range("G2").Value = Chr(254), vbGreen, vbRed)
End Sub

 

[AD1957]

Bedoel je dit ?

Private Sub row2()
    If Range("E2") = Chr(254) and  Range("G2") = Chr(254) Then
   
       CommandButton1.BackColor = vbGreen
    Else
       CommandButton1.BackColor = vbRed
    End If
    
End Sub

 

[Atwist]

Ik dank jullie allen

In eerste instansie dacht ik dat jullie macro's niet werkte, toen kreeg ik de ingeving dat de macro wel moet worden opgenomen door

Private Sub Worksheet_Change(ByVal Target As Range)

Anders werkt het niet

Dus vraag is opgelost