MicrosoftNews
12/17/2006 5:34:00 PM
Hi all,
I need help on VBA in XL2003 / XP Home.
I want to add a additional function to a while/do loop. I want to check by
vba the saturdays AND sundays in my calendar and mark it.
################################################################
Private Sub TageFärben(DestTable As Worksheet, ByVal Kalenderjahr As
Integer)
Dim dat As Date
Dim AInterior As Interior
Set AInterior = TabPublics.Range(CFormatCellRange).Interior
dat = DateSerial(Kalenderjahr, 1, 1)
While Weekday(dat) <> vbSunday here I want to check also
the saturdays !!!!!!!!
dat = dat + 1
Wend
Do
SetzeTagesfarbeVonDatum dat, DestTable, AInterior
dat = dat + 7
Loop While Year(dat) = Kalenderjahr
End Sub
################################################################
Who can help ???
Thanks in advance.