100014
Dieses Makro markiert Samstag und Sonntag farblich.
Die Daten müssen in der Zeile 1 Spalte B - AF stehen.
Steht das Datum in andere Zellen, so ist die Zeile 2 entsprechend anzupassen
Sub farbe_wochende()
For Each Cell In Range(Cells(1, 4), Cells(1, 34))
If WeekDay(Cell.Value) = 7 Or WeekDay(Cell.Value) = 1 Then
With Cell.Interior
.Pattern = xlGray16
.PatternColorIndex = 3
End With
End If
Next Cell
End Sub








Twitter
Myspace
Mister Wong
Yigg
Newsider
Newskick
Power-Oldie
Favoriten
Linksilo
Linkarena
Digg
Del.icio.us
Reddit
Furl
Yahoo
Technorati
Googlize this
Facebook
Wikio