ich möchte gerne bestimmten Zellen für einen Wert Farben zuordnen.
Z.B.: eine Zelle mit dem Wert 20 soll grün sein, eine andere mit dem Wert 50 rot.
Kann mir bitte jemand weiterhelfen.
Vielen Dank
Ralph
Sub zellenfarbe()
Dim rng As Range
Dim zelle
Set rng = Sheets(1).Range("a1:b10")
For Each zelle In rng
If zelle.Value = 20 Then zelle.Interior.ColorIndex = 3
If zelle.Value = 50 Then zelle.Interior.ColorIndex = 10
Next
End Sub