fortlaufendes Datum
20.12.2017 20:06:43
Moor
ich habe im Netz eine Formel gesucht, die mir ein Formular mit fortlaufendem Datum ausdruckt.Folgende Formel habe ich gefunden:
Dim i As Integer, anz As Integer
Dim start As Date
start = InputBox("Bitte Startdatum eingeben")
anz = InputBox("Bitte Anzahl Blätter eingeben")
For i = 0 To anz - 1
Cells(5, 31).Value = start + i
ActiveSheet.PrintOut
Next i
Ich habe das Problem, dass wenn das Datum entweder ein Sonntag bzw. ein Montag ist das Formular nicht gedruckt werden soll. Kann mir jemand helfen?
Ich danke schon mal im Voraus