VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Hintergrundfarbe in Abhängigkeit vom Wochentag

Gruppe

Ereignis

Bereich

Change

Thema

Hintergrundfarbe in Abhängigkeit vom Wochentag

Problem

Bei Datumseingaben in Spalte A soll die Hintergrundfarbe in Abhängigkeit vom Wochentag festgelegt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.




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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change