Sub Kopieren()
Dim Datum As Date
Kopiersheet = 3
Anzahl = 24
Do
Eingabe = InputBox("Geben Sie ein Datum ein", "Kopieren", Date)
Loop Until IsDate(Eingabe)
i = 1: k = Kopiersheet - 1
Do
k = k + 1
Sheets(k).Copy After:=Sheets(k)
Datum = CDate(Eingabe) + i - 1
If Weekday(Datum) = vbSaturday Then
Datum = Datum + 2
i = i + 2
ElseIf Weekday(Datum) = vbSunday Then
Datum = Datum + 1
i = i + 1
End If
Sheets(k + 1).Name = Format(Datum, "ddd. dd.MM.yy")
i = i + 1
Loop Until k = 3 + Anzahl - 1
End Sub