Hallo,

ich möchte in einer Excel-Tabelle die Zellfarben mit Bedingungen färben.
Es gibt eine Art Schulnotensystem (Werte von 0 - 4), die pro Art eine Farbe bekommen soll.

Mein derzeitiges Makro ist:

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

Über dieses Makro kann ich die Spalte N gut einfärben.

Nun sollen die davor liegenden Spalten L und M auch die Farbe erhalten, die in Spalte N ausgefüllt ist.

In L und M stehen Zahlenwerte, aus denen sich die Werte der Spalte N ergeben.
Wenn eine Zelle in Spalte N dann eine bestimmte Farbe hat, so sollen die dazugehörigen Werte in den Spalten L und M dann auch diese Farbe bekommen.

Wie kann ich diese Bedingungen in ein Makro mit aufnehmen?

Danke für eure Hilfe.

mavida