Folgendes Problem:
Ich habe eine Tabelle in der Werte von 0 - 6 in die Zellen B6 bis AF20 eingetragen werden, sprich 1, 2, 3, usw.
Je nach Wert soll die Zelle in einer anderen Farbe angezeigt werden.
1 = weiss
2= rot
3 = blau
4 = grün
5 = lila
6 = orange
Kann mir da jemand weiterhelfen?
Hab's schon mit dem folgenden Makro probiert, hat aber leider nicht funktioniert.
Habe den Code in ein Modul eingefügt.
Wenn ich das Makro starte kommt folgende Fehlermeldung:
Laufzeitfehler '424'
Objekt erforderlich
Hier noch das Makro:
Sub MeinMakro ()
Dim ber As Range
Set ber = Intersect(Target, Range("B6:AF20"))
If Not ber Is Nothing Then
With ber.Interior
Select Case ber(1).Value
Case 1
.ColorIndex = 1
Case 2
.ColorIndex = 2
Case 3
.ColorIndex = 3
Case 4
.ColorIndex = 4
Case 5
.ColorIndex = 5
Case 6
.ColorIndex = 6
Case Else
.ColorIndex = xlColorIndexNone
End Select
End With
End If
End Sub
Für jede Hilfe bin ich sehr dankbar...
Gruß
pearser