makro für mehr bedingte formatierungen
03.11.2005 01:19:22
pearser
Ich habe 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 diesem Makro probiert, hat aber leider nicht funktioniert, da immer eine Fehlermeldung angezeigt wird:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Select Case Target.Value
Case Zahlenreihe rem für Textstring
Target.Interior.ColorIndex = 1
Case 2
Target.Interior.ColorIndex = 2
Case 3
Target.Interior.ColorIndex = 3
Case 4
Target.Interior.ColorIndex = 4
Case 5
Target.Interior.ColorIndex = 5
Case 6
Target.Interior.ColorIndex = 6
Case Else
Target.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
...bitte bitte...HILFE !!!