Wie kopiert man mehrere Blätter mehrmals in Excel?

Mit dem Befehl Verschieben oder Kopieren in Excel können Sie eine Kopie eines Arbeitsblatts, mehrerer spezifischer Arbeitsblätter oder aller Arbeitsblätter auf einmal in die aktive Arbeitsmappe oder eine andere Arbeitsmappe erstellen.

1. Wählen Sie im entsprechenden Arbeitsbuch, in dem Sie Arbeitsblätter kopieren möchten, mehrere Arbeitsblätter auf der Registerkarte „Blatt“ aus.
Hinweis: Halten Sie die Taste STRG gedrückt, um mehrere nicht angrenzende Blattregisterkarten durch Anklicken nacheinander auf der Registerleiste auszuwählen; halten Sie die Taste UMSCHALT gedrückt, um mehrere angrenzende Blattregisterkarten auszuwählen, indem Sie auf die erste und letzte Registerkarte klicken.

2. Klicken Sie mit der rechten Maustaste auf die ausgewählte Blattregisterkarte auf der Registerleiste und wählen Sie Verschieben oder Kopieren aus dem Kontextmenü. Siehe Screenshot:

3. Im Dialogfeld Verschieben oder Kopieren legen Sie bitte die folgenden Einstellungen fest:
(1) Geben Sie im Dropdown-Menü „Ziel-Arbeitsmappe“ die Arbeitsmappe an, in die Sie die Arbeitsblätter kopieren möchten. Sie können die aktive Arbeitsmappe, eine andere geöffnete Arbeitsmappe oder eine neue Arbeitsmappe auswählen. Ziel-Arbeitsmappe Sie können die aktive Arbeitsmappe, eine andere offene Arbeitsmappe oder eine neue Arbeitsmappe nach Bedarf auswählen.
(2) Legen Sie die Position der kopierten Blätter auf der Registerkarte „Blatt“ fest. Sie können z.B. hinter allen vorhandenen Blättern platzieren.
(3) Aktivieren Sie die Option Kopie erstellen Wenn Sie diese Option nicht aktivieren, werden die ausgewählten Arbeitsblätter in die Zielarbeitsmappe verschoben.
(4) Klicken Sie auf die Schaltfläche OK .

Jetzt wird nur eine Kopie der ausgewählten Arbeitsblätter in die angegebene Arbeitsmappe erstellt. Um mehrere Kopien dieser Arbeitsblätter zu erstellen, können Sie den Vorgang mehrmals wiederholen.

Obwohl es einfach ist, eine Kopie von mehreren Arbeitsblättern in Excel zu erstellen, müssen Sie den Befehl „Verschieben oder Kopieren“ möglicherweise immer wieder verwenden, wenn Sie mehrere Kopien von mehreren Arbeitsblättern in der aktuellen Arbeitsmappe erstellen möchten. Möchten Sie dies mit einem einzigen Klick erledigen? Mit dem Hilfsprogramm „Arbeitsblätter kopieren“ des Drittanbieter-Add-ins Kutools für Excel können Sie mit einem einzigen Klick mehrere Kopien von mehreren Arbeitsblättern in Excel erstellen.

1. Klicken Sie auf Kutools Plus > Arbeitsblätter kopieren. Siehe Screenshot:

Hinweis: Durch Klicken auf Kutools Plus > Arbeitsblatt > Arbeitsblätter kopieren können Sie auch dieses Feature nutzen.

2. Wenden Sie die Einstellungen im Dialogfeld Mehrere Arbeitsblätter kopieren an:
(1) Aktivieren Sie die Arbeitsblätter, die Sie kopieren möchten, im Abschnitt Ausgewählte Arbeitsblätter kopieren .
(2) Geben Sie die Anzahl der Kopien.
an. (3) Bestimmen Sie die Position der kopierten Blätter, zum Beispiel vor oder nach allen Arbeitsblättern, vor oder nach dem aktuellen Arbeitsblatt.
(4) Klicken Sie auf die Schaltfläche OK .

3. Ein Hinweisfenster erscheint, das Sie daran erinnert, dass die markierten Arbeitsblätter so oft wie benötigt kopiert wurden. Klicken Sie auf die Schaltfläche OK um es zu schließen. Siehe Screenshot:

Diese Funktion „Mehrere Arbeitsblätter kopieren“ von Kutools für Excel erstellt mit wenigen Klicks mehrere Kopien von mehreren angegebenen Arbeitsblättern in der aktiven Arbeitsmappe. Testen Sie es kostenlos!

Wenn Sie 10 Kopien eines bestimmten Arbeitsblatts erstellen möchten, ist der Befehl „Verschieben oder Kopieren“ zeitaufwendig, und Sie müssen den Vorgang viele Male wiederholen. Aber mit dem folgenden VBA-Code können Sie das Arbeitsblatt schnell 10 Mal auf einmal kopieren.

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Erstellen Sie mehrere Kopien eines bestimmten Arbeitsblatts in die aktive Arbeitsmappe.

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

Hinweis: Ersetzen Sie im obigen Code "Tabelle1" durch den Namen des zu kopierenden Blatts.

3. Drücken Sie dann die Taste F5 um den Code auszuführen. Es erscheint ein Eingabefeld, das Sie nach der Anzahl der gewünschten Blattkopien fragt.

4. Klicken Sie dann auf OK, und das angegebene Arbeitsblatt wurde 100-mal in der aktiven Arbeitsmappe kopiert.

Wenn Sie Kutools für Excel installiert haben, können Sie auch dessen Funktion „Arbeitsblätter kombinieren“ verwenden, um mit wenigen Klicks eine Kopie von mehreren Arbeitsblättern aus mehreren geschlossenen Arbeitsmappen in eine neue Arbeitsmappe zu erstellen.

1. Klicken Sie auf Kutools Plus > Konsolidieren um die Funktion „Arbeitsblätter kombinieren“ zu aktivieren.

2. Im Assistenten „Arbeitsblätter kombinieren – Schritt 1 von 3“ aktivieren Sie bitte die Option Daten von mehreren Arbeitsmappen in ein Arbeitsblatt kopieren und klicken Sie auf die Schaltfläche Weiter . Siehe Screenshot:

3. Im Assistenten „Arbeitsblätter kombinieren – Schritt 2 von 3“ gehen Sie bitte wie im folgenden Screenshot gezeigt vor:
(1) Klicken Sie auf Hinzufügen > Datei oder Ordner um die Arbeitsmappen hinzuzufügen, aus denen Sie Arbeitsblätter kopieren möchten.
(2) Im Abschnitt Arbeitsmappenliste aktivieren Sie die Arbeitsmappe, deren Arbeitsblätter Sie kopieren möchten;
(3) Im Abschnitt Arbeitsblattliste aktivieren Sie die Arbeitsblätter, die Sie kopieren möchten;
(4) Wiederholen Sie die oben genannten Schritte (2) und (3) um Arbeitsblätter aus anderen Arbeitsmappen auszuwählen, die Sie kopieren möchten.
(5) Klicken Sie auf die Schaltfläche Weiter .

4. Im Assistenten „Arbeitsblätter kombinieren – Schritt 3 von 3“ konfigurieren Sie bitte die Kopiereinstellungen nach Bedarf und klicken Sie auf die Schaltfläche Fertig .

5. Geben Sie im neuen Dialogfeld einen Zielordner an, um die neue Arbeitsmappe zu speichern, benennen Sie die neue Arbeitsmappe im Feld Dateiname und klicken Sie auf die Schaltfläche Speichern . Siehe Screenshot:

Jetzt erscheinen zwei weitere Dialogfelder, die Sie auffordern, die neue Arbeitsmappe zu öffnen und das Kombinationsszenario zu speichern. Klicken Sie je nach Bedarf auf die entsprechenden Schaltflächen. Bis hierhin wurden alle angegebenen Arbeitsblätter aus mehreren Arbeitsmappen auf einmal kopiert.

Mit diesem Konsolidieren (Arbeitsblätter)-Tool können Sie ganz einfach Arbeitsblätter und Arbeitsmappen wie in der folgenden Liste gezeigt kopieren und kombinieren. Testen Sie es kostenlos!
(1) Schnelles Kombinieren mehrerer Arbeitsblätter / Bereiche aus Arbeitsmappen in ein Arbeitsblatt;
(2) Schnelles Zusammenführen / Kombinieren aller gleichnamigen Arbeitsblätter über Arbeitsmappen hinweg in ein Arbeitsblatt;
(3) Schnelles Zusammenführen / Kombinieren von Arbeitsblättern oder Arbeitsmappen in eine Arbeitsmappe;
(4) Schnelles Zusammenfassen / Berechnen von Daten aus mehreren Arbeitsblättern in ein Arbeitsblatt.