Wochenende farbig kennzeichnen (ganze Zeile)

Um die ganze entsprechende Zeile farbig zu markieren, muss das Makro entsprechend angepasst werden. Die rot markierten Stellen wurden angepasst. Sie können den Code am Ende dieses Artikels kopieren und einfügen.

Neu brauchen Sie bei diesem Makro keinen Bereich mehr anzugeben (A1:A750), sondern Sie markieren einfach den Bereich in Spalte A, der die Daten enthält. Starten Sie dann das Makro, das sich auf diesen markierten Bereich bezieht. Wenn Sie doch lieber mit einem vordefinierten Bereich arbeiten, entfernen Sie das "'"-Zeichen vor dem grünen Text im Makro und setzen das Zeichen in der Zeile darüber vor den Text "For Each Zelle In Selection". Damit wird diese Anweisung stillgelegt (bzw. als Kommentar behandelt)

Kopieren Sie den untenstehenden Text:

---------------------------------------

Sub WeekendZeileFarbig()

Dim Zelle As Range

For Each Zelle In Selection

'For Each Zelle In ActiveSheet.Range("A1:A750")

If Weekday(Zelle) = 1 Then

Zelle.Select

Rows(ActiveCell.Row).Select

Selection.Interior.ColorIndex = 6

ElseIf Weekday(Zelle) = 7 Then

Zelle.Select

Rows(ActiveCell.Row).Select

Selection.Interior.ColorIndex = 4

End If

Next Zelle

Range("A1").Select

End Sub

---------------------------------------