Gruppe
Ereignis
Problem
Bei Datumseingaben in Spalte A soll die Hintergrundfarbe in Abhängigkeit vom Wochentag festgelegt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If IsEmpty(Target) Then Exit Sub
If IsDate(Target.Value) = False Then Exit Sub
Select Case Weekday(Target)
Case 1: Target.Interior.ColorIndex = 3
Case 2: Target.Interior.ColorIndex = 4
Case 3: Target.Interior.ColorIndex = 5
Case 4: Target.Interior.ColorIndex = 6
Case 5: Target.Interior.ColorIndex = 7
Case 6: Target.Interior.ColorIndex = 8
Case 7: Target.Interior.ColorIndex = 9
End Select
End Sub