Schleife fur Tb
13.11.2002 11:24:30
Jens
ich brauche mal eure Hilfe. Das nachfolgende Makro soll in allen TB mit Monatsnamen ausgeführt werden. Wie muß dafür eine Schleife programmiert werden.
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
End Sub
Danke im voraus Jens