Wochenenden farbig kennzeichnen - Excel

Erstellen Sie folgendes Makro. Sie müssen es allerdings vermutlich erst auf Ihre Tabelle anpassen. Geben Sie bei ".Range("A1:A750")" den von ihnen verwendeten Tabellenbereich an, indem sich ihre Daten befinden.

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

Sub WeekendFarbig()

Dim Zelle As Range

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

If Weekday(Zelle) = 1 Then

Zelle.Interior.ColorIndex = 6

ElseIf Weekday(Zelle) = 7 Then

Zelle.Interior.ColorIndex = 4

End If

Next Zelle

Range("A1").Select

End Sub

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

Das Makro erstellen Sie am einfachsten über EXTRAS/MAKRO/MAKROS. Geben Sie dort in die Zeile "Makroname" den Namen ein, hier also "WeekendFarbig" und klicken Sie dann auf "Erstellen". Der Visual Basic-Editor wird dann geöffnet und stellt bereits das Grundgerüst für das Makro her. Kopieren Sie dann aus dem obenstehenden Text den Teil zwischen "Sub WeekendFarbig()" und "End Sub" und fügen Sie diesen Teil bei Ihrem Makro ein. Passen Sie es dann für Ihre Bedürfnisse an.

Im folgenden Beispiel sind, zum besseren Verständnis des Makros, die Daten aus Spalte A in der Spalte B als Wochentag-Index und in der Spalte C benutzerdefiniert im Format "TTTT" dargestellt.

Zu Beginn sieht also Ihre Tabelle so aus:

Führen Sie dann das Makro aus (EXTRAS/MAKRO/MAKROS), um alle Daten der Wochenenden einzufärben.

Das Makro durchsucht die Spalte A von Zeile 1 bis 750 nach dem Index 7 (für Samstag) und nach dem Index 1 (für Sonntag) und färbt die entsprechenden Zellen ein.