Hi.
mal so als Schnellschuß :
Salten1-3 vorher als Datum formtieren !!!!!!!!!!
wie Du das mit den Feiertagen regeln willst ???
(die sind ja regional unterschiedlich)
Sam-und Sonntage kannst Du sicher slbst rausfinden
Sub zeitreise()
startdatum = Cells(1, 1).Value
enddatum = Cells(1, 2).Value
x = 0
Cells(1, 3).Value = startdatum
Do
x = x + 1
nowdatum = Cells(x, 3).Value - 1
stopdatum = Cells(x, 3).Value
Cells(x + 1, 3).Value = Cells(x, 3).Value - 1
Loop Until nowdatum = enddatum
End Sub
|