Voorwaardelijke opmaak werkt niet

[frankli]

Hoi,

Ik heb 4 voorwaarden voor de keuren op basis van de waarde van een cell.
Maar het toont alleen maar 2 keuren, ik weet niet waarom.
Zie ook bijlage.

Sub kleur()
For Each c In Range("A1:A4")
If c.Value >= 100 Then
c.Interior.ColorIndex = 41
ElseIf 60 <= c.Value < 100 Then
c.Interior.ColorIndex = 43
ElseIf 30 <= c.Value < 60 Then
c.Interior.ColorIndex = 45
Else
c.Interior.ColorIndex = 3
End If
Next
End Sub

 

[Hoornvan]

frankli,

Als je van de Elseif eens If maakt?
Of gebruik Select case

Sub kleur()
For Each c In Range("A1:A4")
If c.Value >= 100 Then c.Interior.ColorIndex = 41
If 60 <= c.Value < 100 Then c.Interior.ColorIndex = 43
If 30 <= c.Value < 60 Then c.Interior.ColorIndex = 45
c.Interior.ColorIndex = 3
Next

End Sub

 

[frankli]

bedankt, ik heb het gevonden.

Sub kleur()
For Each c In Range("A1:A4")
If c.Value >= 100 Then
iCol = 41
ElseIf c.Value > 60 Then iCol = 43
ElseIf c.Value > 30 Then iCol = 45
Else: iCol = 3
End If
c.Interior.ColorIndex = iCol
Next
End Sub