02.07.2021, 12:38
Hallo
Ich brauche bitte mal eure Hilfe, da ich ein Laie in diesem Gebiet bin. Ich habe mir dieses Makro kopiert was soweit auch Funktioniert.
Sub FuegeTabellenEin()
Dim Anzahl As Integer
Dim i As Integer
Anzahl = InputBox("Wie viele Blätter einfügen?")
For i = 1 To Anzahl
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Date + i
Next i
End Sub
Ich brauche bitte zum Eingeben nicht nur wie viele Seiten es sein sollen, sondern auch das Startdatum. Wenn möglich sollte der Sonntag nicht auftauchen. Wenn es dann noch möglich wäre, sollte das Datum z.B. wie folgt erscheinen: Mo. 05.07.21
Danke schon mal im voraus
Ich brauche bitte mal eure Hilfe, da ich ein Laie in diesem Gebiet bin. Ich habe mir dieses Makro kopiert was soweit auch Funktioniert.
Sub FuegeTabellenEin()
Dim Anzahl As Integer
Dim i As Integer
Anzahl = InputBox("Wie viele Blätter einfügen?")
For i = 1 To Anzahl
Worksheets.Add after:=Worksheets(Worksheets.Count)
Worksheets(Worksheets.Count).Name = Date + i
Next i
End Sub
Ich brauche bitte zum Eingeben nicht nur wie viele Seiten es sein sollen, sondern auch das Startdatum. Wenn möglich sollte der Sonntag nicht auftauchen. Wenn es dann noch möglich wäre, sollte das Datum z.B. wie folgt erscheinen: Mo. 05.07.21
Danke schon mal im voraus