Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1700to1704
1700to1704
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisches Tabellenblatt kopieren + umbenennen

Forumthread: Automatisches Tabellenblatt kopieren + umbenennen

Automatisches Tabellenblatt kopieren + umbenennen
08.07.2019 13:34:40
Don
Hallo zusammen,
ich versuche aktuell mit Hilfe eines Makros mehrere Worksheets nach einer Vorlage ("Sheetvorlage") zu erstellen und diese dann umzubenennen. Die Namen der Worksheets soll sich das Makro von einer Liste ("Namensliste") in der Excel Datei holen.
Leider weiß ich nicht ganz, wie ich diesen Prozess sich wiederholen lassen kann, bis die Liste abgearbeitet ist (bis das Makro ggf. also auf eine leere Zelle kommt).
Das ist mein bisheriger Code:
Dim NeuerTabellenName As String
NeuerTabellenName = Sheets("Namensliste").Range("A2").Value
Sheets("Sheetvorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeuerTabellenName
Dieser soll sich solange wiederholen, bis die Liste im Tabellenblatt "Namensliste" abgearbeitet ist und somit alle Worksheets erstellt sind.
Freue mich sehr über jede Hilfe :)
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisches Tabellenblatt kopieren + umbenennen
08.07.2019 13:56:05
Torsten
Hallo,
So z.B.: 

Sub neues_sheet()
Dim NeuerTabellenName As String
Dim aLast As Long, aCount As Long
aLast = Sheets("Namensliste").Cells(Rows.Count, 1).End(xlUp).Row
For aCount = 2 To aLast
NeuerTabellenName = Sheets("Namensliste").Range("A" & aCount).value
Sheets("Sheetvorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeuerTabellenName
Next aCount
End Sub
Gruss Torsten
Anzeige
AW: Automatisches Tabellenblatt kopieren + umbenennen
08.07.2019 13:56:46
Torsten
Hallo,
so z.B. 

Sub neues_sheet()
Dim NeuerTabellenName As String
Dim aLast As Long, aCount As Long
aLast = Sheets("Namensliste").Cells(Rows.Count, 1).End(xlUp).Row
For aCount = 2 To aLast
NeuerTabellenName = Sheets("Namensliste").Range("A" & aCount).value
Sheets("Sheetvorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeuerTabellenName
Next aCount
End Sub
Gruss Torsten
Anzeige
AW: Automatisches Tabellenblatt kopieren + umbenennen
08.07.2019 14:12:37
Don
Hi Torsten,
vielen Dank!
Das klappt so schon super.
Kann man auch irgendwie den Namen, den das Worksheet bekommt, auch noch in eine Zelle im Worksheet einfügen lassen?
Vielen Dank schonmal!
AW: Automatisches Tabellenblatt kopieren + umbenennen
08.07.2019 15:07:55
Torsten
Du meinst im neu erstellten Sheet? Dann so: 

Sub neues_sheet()
Dim NeuerTabellenName As String
Dim aLast As Long, aCount As Long
aLast = Sheets("Namensliste").Cells(Rows.Count, 1).End(xlUp).Row
For aCount = 2 To aLast
NeuerTabellenName = Sheets("Namensliste").Range("A" & aCount).value
Sheets("Sheetvorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeuerTabellenName
Sheets(NeuerTabellenName).Range("A1").value = NeuerTabellenName   'Zelle anpassen
Next aCount
End Sub

Anzeige
AW: Automatisches Tabellenblatt kopieren + umbenennen
09.07.2019 08:40:09
Don
Ganz genau. Klappt perfekt!
War doch einfacher als ich dachte...
Vielen Dank dir!
Bitteschoen
09.07.2019 09:34:31
Torsten
viel Spass
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige