Supportnet / Forum / Tabellenkalkulation
Umbenennen der Tabellenblätter
Frage
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
Antwort 1 von galanter
Hallo
Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Tabelle" & Sheets.Count
Next i
End Sub
Sub Tabellen_einfügen_kopieren()
Dim i As Integer
For i = 1 To 12
Sheets(1).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Tabelle" & Sheets.Count
Next i
End Sub
Antwort 2 von nok106
Hi,
für die superschnelle Antwort besten Dank.
Einfach aber wirkungsvoll ! Danke.
Gruß Odje
für die superschnelle Antwort besten Dank.
Einfach aber wirkungsvoll ! Danke.
Gruß Odje