Clever-Excel-Forum

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

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

Servus Uwe,

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

Gruss Markus

DjCrossOver

Kuwer

DjCrossOver