Tabellenblätter per Makro erstellen

[DjCrossOver]

Hallo zusammen,

vllt könnt ihr mir ja weiterhelfen ;)

Und zwar möchte ich ein vorgegebenes Tabellenblatt neu einfügen und umbenennen. Das Funktioniert auch sehr gut. Jetzt zum kniffligen Teil, den ich einfach nicht hinbekomme.
Das Makro soll so ablaufen, das ich beim Start gefragt werden möchte wie viele Tabellenblätter erstellt werden, nach Eingabe von sagen wir mal 100, soll das Makro die Blätter umbenennen, Fortlaufend beginnend mit dem Datum in Zelle A1 des aktiven Blatts. Wochenenden und Feiertage sollen hierbei jetzt mal nicht berücksichtigt werden

Ich hoffe Ihr versteht was ich meine und hoffe das Ihr mir helfen könnt.

Schon mal vorab vielen herzlich Dank :)

Gruss

[Kuwer]

Hallo,

Code:

Sub BlaetterErstellen()
  Dim i As Long
  With ActiveSheet.Range("A1")
    If IsDate(.Value) Then
      i = Application.InputBox(Prompt:="Wieviele Tabellenblätter sollen erstellt werden?", Type:=1)
      For i = 1 To i
        .Parent.Copy After:=Worksheets(Worksheets.Count)
        ActiveSheet.Name = Format(.Value + i, "dd.mm.yyyy")
      Next i
    End If
  End With
End Sub

Gruß Uwe

[DjCrossOver]

Servus Uwe,

vielen lieben Dank für deine schnelle Hilfe, Funktioniert supi :)

Gruss Markus