Makro in allen TB auf einmal ausführen
01.11.2002 08:13:33
Jens
ich habe ein Problem mit der Ausführung eines Makros das in den TB die Wochenenden formatieren soll. Ich bin bisher noch nicht dahintergekommen wie ich das Makro per Schaltfläche in den TB "Januar bis Dezember" auf einmal ausführen kann.
folgendes Makro will ich dabei verwenden:
Sub WochenendeMarkieren1()
Rows("2:2").Interior.ColorIndex = xlNone
Dim C As Range
For Each C In ActiveSheet.Range("B2:AF2")
If IsEmpty(C) Then Exit Sub
If C = "So" Or WeekDay(C) = 1 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray50
.PatternColorIndex = 3
End With
ElseIf C = "Sa" Or WeekDay(C) = 7 Then
With C.Interior
.ColorIndex = 0
.Pattern = xlGray25
.PatternColorIndex = 3
End With
End If
Next C
Danke für eure Hilfe
Jens
Anzeige