Supportnet / Forum / Tabellenkalkulation
Bedingte Formatierung für eine Spanne von Zahlen
Frage
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
Antwort 1 von Beverly
Hi,
Bis später,
Karin
Sub Zellen_faerben()
Dim Zelle As Range
Dim Bereich As Range
Set Bereich = Range("N4:N175")
For Each Zelle In Bereich
If Zelle <> "" Then
Select Case Zelle
Case 0 To 39
Zelle.Interior.ColorIndex = 3
Case 40 To 69
Zelle.Interior.ColorIndex = 10
Case 70 To 89
Zelle.Interior.ColorIndex = 6
Case Is > 89
Zelle.Interior.ColorIndex = 4
End Select
Zelle.Interior.Pattern = xlSolid ' ist eigentlich nicht erforderlich da Standard
End If
Next Zelle
Set Zelle = Nothing
Set Bereich = Nothing
End Sub
Bis später,
Karin
Antwort 2 von mavida
Danke, danke.
Es funktioniert.
Was habe ich versucht und bin nicht drauf gekommen.
Danke, danke.
mavida
Es funktioniert.
Was habe ich versucht und bin nicht drauf gekommen.
Danke, danke.
mavida
Antwort 3 von wundi123
nur so als info...
wenn du als grundfarbe zB grün wählst kannst du auch ohne makro auskommen.
dann färbst du für >=0 halt rot für >=40 orange und für >=70 gelb
geht natürlich nicht wenn du auch negative zahlen hast...
=)
gruß
wenn du als grundfarbe zB grün wählst kannst du auch ohne makro auskommen.
dann färbst du für >=0 halt rot für >=40 orange und für >=70 gelb
geht natürlich nicht wenn du auch negative zahlen hast...
=)
gruß