Hallo Excelfreunde !

Gibt es hierfür eine Lösung ?

Das folgende Makro erstellt automatisch neue Tabellenblätter mit lfd. Nummer.
Auf allen hinzugefügten Tabellenseiten wird derselbe Inhalt von der Tabelle1 stehen.

Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets.Count
Next i
End Sub

Nun meine Frage:
Statt lfd. Nummer 1 bis 12 hätte ich gerne die Ausgabe mit Tabelle1 bis Tabelle12 ?

Hat jemand eine Idee ob das geht und wenn ja - Wie ?

Einstweilen herzlichen Dank an alle, die sich für mich bemühen.

MfG Odje