Bedingte Formatierung mittels Select Case
30.07.2013 12:45:31
Erwin
in einem Dienstplan mit 12 Tabellenblätter sollen in einem bestimmten Bereich Zellen mit bestimmten Abkürzungen (Urlaub, Frei usw.)farblich dargestellt werden.
Da mit Excel 2002 nur 3 bedingte Formatierungen möglich sind, hätte ich mir folgendes _
ausgedacht, klappt aber nicht:
Sub bed_form_januar()
dim bereich as Range
dim zelle as Range
Set bereich = Sheets("Tabelle1").Range("B4:AF20")
For Each zelle In bereich
Select Case zelle
Case "U"
zelle.Interior.ColorIndex = 16
usw.
End Select
Next zelle
End Sub
Mit diesem Code löse ich aber überhaupt nichts aus. Kann mir jemand helfen, wo
der Fehler liegt?
Wäre für Antworten sehr dankbar!
Schöne Grüße
Erwin
Anzeige