Supportnet Computer
Planet of Tech

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,

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

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ß

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: