ausfüllen bis letzten Tag im Monat
15.05.2005 00:01:09
Reinhard
ich häng hier gerade fest, es soll nur ausfgefüllt werden bis zum letzten tag im Monat, aber ich kriege es nicht hin :-(
Irgendwas ist an der If falsch.
monat = 2
Jahr=2005
For anz = 1 To 31
'If Month(CDate(anz & "." & monat & "." & Jahr) + z - 1) > monat Then Exit Sub
For z = 0 To 23
Cells((anz - 1) * 24 + z + 2, 1) = Right("00" & anz, 2) & "." & Right("00" & monat, 2) & "." & Jahr
Cells((anz - 1) * 24 + z + 2, 2) = Right("00" & z, 2) & ":00"
Next z
Next anz
Gruß
Reinhard