Hallo,

heute brauche ich eure Hilfe, weil ich ein Ranking mit Werten von 1bis 100 habe und verschiedene Spannen im Ranking unterschiedliche Farben bekommen sollen.

Unterschiedliche Ränge sollen zusammengefasst werden.
So sollen alle Ränge von
>=0 rot
>= 40 orange
>= 70 gelb
> = 90 grün sein.

Leider reichen mir die 3 möglichen bedingten Formatierungen in xls nicht aus.

Bisher habe ich es mit dem folgenden Makro versucht, aber leider funktioniert das nicht für eine Spanne von Zahlen.

Sub Zellen_färben()
Set Bereich = Range("N4:N175")
For Each Zelle In Bereich
s = Zelle.Value
If InStr(s, "4") = 1 Then
With Zelle.Interior
.ColorIndex = 10
.Pattern = xlSolid
End With
End If
If InStr(s, "1") = 1 Then
With Zelle.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
If InStr(s, "2") = 1 Then
With Zelle.Interior
.ColorIndex = 45
.Pattern = xlSolid
End With
End If
If InStr(s, "3") = 1 Then
With Zelle.Interior
.ColorIndex = 27
.Pattern = xlSolid
End With
End If
If InStr(s, "0") = 1 Then
With Zelle.Interior
.ColorIndex = 2
.Pattern = xlSolid
End With
End If
Next Zelle
End Sub

Ich hoffe, ihr könnt mir helfen.

danke.
mavida