ich möchte das Datum vom 01.01.2006 bis zum 31.12.2006 in Spalten ohne Feiertage erzeugen. Kann mir jemand helfen.
Vielen Dank für die Hilfe
Gruß
Konrad
Sub xx()
Dim I&
Dim TmpDate As Date
Cells(1, 1) = "Datum"
I = 2
Columns(1).NumberFormat = "dd/mm/yyyy;@"
TmpDate = CDate("31.12.2005")
Do
TmpDate = TmpDate + 1
Cells(I, 1) = TmpDate
I = I + 1
Loop Until TmpDate = CDate("31.12.2006")
End Sub