der folgende Code formatiert mir die Zelle anhand des Wertes. Jetzt hätte ich es aber gern das ich die Werte nicht einzeln in den Casefall eintrage, sondern einen Bereich angebe. Ist das Möglich?
___________________________________________________________________________
zb.:
Case Range("A1:A10") ' Anträge
Zelle.Interior.ColorIndex = 6
usw.
_________________________________________________________________________
Sub Bedingte_Formatierung_Eintraege()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Zelle As Range, Bereich As Range
Set Bereich = Sheets("Urlaubsplanung").Range("Eingabebereich")
For Each Zelle In Bereich
Select Case Zelle.Value
Case "U?", "X?", "SU?", "UX?": ' Anträge
Zelle.Interior.ColorIndex = 6
Case "U", "X", "SU", "EZ", "UX": ' Genehmigt
Zelle.Interior.ColorIndex = 4
Case 1000 To 3000: ' andere Abteilungen
Zelle.Interior.ColorIndex = 15
Case "Int.Q", "Ext.Q": ' Qualifizierung
Zelle.Interior.ColorIndex = 20
Case "K?", "K": ' Arbeitsunfähig
Zelle.Interior.ColorIndex = 3
End Select
Next Zelle
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End
Sub