Direkt zum Inhalt

Wie kopiere ich mehrere Blätter mehrmals in Excel?

Manchmal müssen wir möglicherweise eine Kopie oder mehrere Kopien bestimmter Arbeitsblätter in einer Arbeitsmappe erstellen. Im Folgenden finden Sie einige schnelle Möglichkeiten, mit denen Sie ein Arbeitsblatt oder mehrere Arbeitsblätter einfach mehrmals in Excel kopieren können.


Erstellen Sie mit dem Befehl Verschieben oder Kopieren eine Kopie mehrerer Arbeitsblätter gleichzeitig in eine aktive Arbeitsmappe oder eine andere Arbeitsmappe

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

1. Wählen Sie in der bestimmten Arbeitsmappe, in die Sie Arbeitsblätter kopieren möchten, mehrere Arbeitsblätter in der Registerkarte "Blatt" aus.
Note: Halten CTRL Mit dieser Taste können Sie mehrere nicht benachbarte Blattregisterkarten auswählen, indem Sie sie einzeln in der Blattregisterkartenleiste anklicken. Halten SHIFT Mit dieser Taste können Sie mehrere benachbarte Blattregisterkarten auswählen, indem Sie auf die erste Blattregisterkarte und die letzte in der Blattregisterkartenleiste klicken.

2. Klicken Sie mit der rechten Maustaste auf die ausgewählte Blattregisterkarte in der Leiste der Blattregisterkarte und wählen Sie Verschieben oder Kopieren aus dem Kontextmenü. Siehe Screenshot:
doc mehrere Blätter kopieren 01

3. In dem Verschieben oder Kopieren Im Dialogfeld geben Sie bitte die folgenden Einstellungen an:
(1) Bitte geben Sie die Zielarbeitsmappe an, in die Sie Arbeitsblätter aus dem kopieren möchten Buchen Dropdown-Liste. Sie können nach Bedarf die aktive Arbeitsmappe, eine andere geöffnete Arbeitsmappe oder eine neue Arbeitsmappe auswählen.
(2) Geben Sie die Position der kopierten Blätter in der Registerkarte "Blatt" an, die Sie nach allen vorhandenen Blättern auswählen können.
(3) Überprüfen Erstellen Sie eine Kopie Wenn Sie diese Option nicht aktivieren, werden die ausgewählten Arbeitsblätter in die Zielarbeitsmappe verschoben.
(4) Klicken Sie auf 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.

Nur mehrere Klicks, um mehrere Kopien mehrerer Arbeitsblätter in einer aktiven Arbeitsmappe zu erstellen

Im Allgemeinen können wir mehrere Arbeitsblätter mit dem kopieren Verschieben oder Kopieren Funktion in Excel. Diese Funktion kann jedoch jeweils nur eine Kopie erstellen. Hier mit Kutools für Excel Arbeitsblätter kopieren Mit diesem Dienstprogramm können Sie problemlos mit nur wenigen Klicks so viele Kopien vieler Arbeitsblätter erstellen, wie Sie in der aktiven Arbeitsmappe benötigen.


Anzeigenkopie mehrerer Arbeitsblätter 01

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

Erstellen Sie mehrere Kopien eines angegebenen Arbeitsblatts in einer aktiven Arbeitsmappe mit VBA-Code

Wenn Sie 10 Kopien eines bestimmten Arbeitsblatts erstellen möchten, klicken Sie auf Verschieben oder Kopieren Der Befehl ist zeitaufwändig und Sie müssen den Vorgang viele Male wiederholen. Mit dem folgenden VBA-Code können Sie das Arbeitsblatt jedoch schnell zehnmal gleichzeitig kopieren.

1. Halten Sie die Taste gedrückt ALT + F11 Tasten, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Erstellen Sie mehrere Kopien bestimmter Arbeitsblätter in einer aktiven 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

Note: Ersetzen Sie im obigen Code "Sheet1"mit dem Namen des zu kopierenden Blattes.

3. Dann drücken F5 Wenn Sie den Code ausführen, wird ein Eingabeaufforderungsfeld angezeigt, in dem Sie nach der Anzahl der gewünschten Blattkopien gefragt werden.

4. Dann klick OKwurde das angegebene Arbeitsblatt 100 Mal in die aktive Arbeitsmappe kopiert.


Erstellen Sie mit Kutools for Excel mehrere Kopien mehrerer Arbeitsblätter in einer aktiven Arbeitsmappe

Obwohl es einfach ist, eine Kopie mehrerer Arbeitsblätter in Excel zu erstellen, müssen Sie möglicherweise das verwenden, wenn Sie mehrere Kopien mehrerer Arbeitsblätter in der aktuellen Arbeitsmappe erstellen möchten Verschieben oder Kopieren Befehlselement immer wieder. Möchten Sie die Sache mit einem Klick erledigen? Mit dem Arbeitsblätter kopieren Dienstprogramm des Drittanbieter-Add-Ins Kutools for Excelkönnen Sie in Excel mit einem Klick mehrere Kopien mehrerer Arbeitsblätter erstellen.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

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

Note: Klicken Sie auf Kutoolen Plus > Arbeitsblatt > Arbeitsblätter kopieren wird auch diese Funktion erhalten.

2. Übernehmen Sie die Einstellungen in der Kopieren Sie mehrere Arbeitsblätter Dialogbox:
(1) Überprüfen Sie die Arbeitsblätter, von denen Sie kopieren möchten Kopieren Sie die ausgewählten Arbeitsblätter .
(2) Geben Sie an Die Anzahl der Kopien.
(3) Bestimmen Sie die Position der kopierten Blätter, z. B. vor oder nach allen Arbeitsblättern, vor oder nach dem aktuellen Arbeitsblatt.
(4) Klicken Sie auf Ok .

3. Ein Eingabeaufforderungsfeld wird angezeigt, um Sie daran zu erinnern, dass die aktivierten Arbeitsblätter bei Bedarf mehrmals kopiert wurden. Klicken Sie auf OK Taste, um es zu beenden. Siehe Screenshot:

Dieser Kopieren Sie mehrere Arbeitsblätter Merkmal von Kutools for Excel Mit mehreren Klicks werden mehrere Kopien mehrerer angegebener Arbeitsblätter in der aktiven Arbeitsmappe erstellt. Haben Sie eine kostenlose Testversion!


Erstellen Sie eine Kopie mehrerer Arbeitsblätter aus mehreren Arbeitsmappen in eine neue

Wenn Sie Kutools für Excel installiert haben, können Sie es auch anwenden Arbeitsblätter kombinieren Funktion zum Erstellen einer Kopie mehrerer Arbeitsblätter aus mehreren geschlossenen Arbeitsmappen in eine neue Arbeitsmappe mit mehreren Klicks nur in Excel.

Kutools for Excel - Laden Sie Excel mit über 300 wichtigen Tools auf. Genießen Sie eine 30-tägige KOSTENLOSE Testversion mit vollem Funktionsumfang, ohne dass eine Kreditkarte erforderlich ist! Hol es dir jetzt

1. Klicken Sie Kutoolen Plus > Kombinieren um die Funktion Arbeitsblätter kombinieren zu aktivieren.

2. Überprüfen Sie im Assistenten zum Kombinieren von Arbeitsblättern - Schritt 1 von 3 die Option Kombinieren Sie mehrere Arbeitsblätter aus Arbeitsmappen zu einem Arbeitsblatt Option und klicken Sie auf Weiter Taste. Siehe Screenshot:

3. Führen Sie im Assistenten zum Kombinieren von Arbeitsblättern - Schritt 2 von 3 den folgenden Screenshot aus:
(1) Klicken Sie auf Speichern > Reichen Sie das or Mappe Um Arbeitsmappen hinzuzufügen, kopieren Sie Arbeitsblätter aus.
(2) In der Arbeitsmappenliste Überprüfen Sie im Abschnitt die Arbeitsmappe, deren Arbeitsblätter Sie kopieren werden.
(3) In der Arbeitsblattliste Überprüfen Sie im Abschnitt die Arbeitsblätter, die Sie kopieren möchten.
(4) Wiederholen Sie oben (2) und (3) Um Arbeitsblätter aus anderen Arbeitsmappen auszuwählen, kopieren Sie sie.
(5) Klicken Sie auf Weiter .

4. Konfigurieren Sie im Assistenten zum Kombinieren von Arbeitsblättern - Schritt 3 von 3 die Kopiereinstellungen nach Bedarf und klicken Sie auf Endziel .

5. Geben Sie nun im neuen Dialogfeld einen Zielordner zum Speichern der neuen Arbeitsmappe an und benennen Sie die neue Arbeitsmappe in der Dateiname Klicken Sie auf das Feld Speichern Taste. Siehe Screenshot:

Nun werden zwei weitere Dialogfelder angezeigt, in denen Sie aufgefordert werden, die neue Arbeitsmappe zu öffnen und das Kombinationsszenario zu speichern. Klicken Sie bei Bedarf auf die Schaltflächen. Bisher wurden alle angegebenen Arbeitsblätter aus mehreren Arbeitsmappen gleichzeitig kopiert.

Mit diesem Kombinieren (Arbeitsblätter) Mit diesem Dienstprogramm können Sie Arbeitsblätter und Arbeitsmappen wie in der folgenden Liste einfach kopieren und kombinieren. Haben Sie eine kostenlose Testversion!
(1) Kombinieren Sie schnell mehrere Arbeitsblätter / Bereiche aus Arbeitsmappen in einem Arbeitsblatt.
(2) Zusammenführen / Kombinieren aller gleichnamigen Arbeitsblätter über Arbeitsmappen hinweg schnell zu einem Arbeitsblatt;
(3) Arbeitsblätter oder Arbeitsmappen schnell zu einer Arbeitsmappe zusammenführen / kombinieren;
(4) Fassen Sie Daten aus mehreren Arbeitsblättern schnell in einem Arbeitsblatt zusammen / berechnen Sie sie.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (25)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.
This comment was minimized by the moderator on the site
Working Code

Sub Copier()
Dim s As String
Dim numtimes As Integer
Dim numCopies As Integer
numCopies = InputBox("How many copies do you need?")
s = InputBox("Enter the name of the Worksheet you want to copy")
For numtimes = 1 To numCopies
ActiveWorkbook.Sheets(s).Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
Next
End Sub

copy the entire line from ActiveWorkbook.Sheets...... that was the problem, and some spaces

Have a great day
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Here is the exact code you want to use: Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
Thank you, the last one saved my life :)
This comment was minimized by the moderator on the site
[quote]I am new to this I am just trying to make copies of the same sheet this is the code I am using. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) Next End Sub when i use the code it gives me the error of "Syntax Error" then this text turns red ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Cou nt) and the is text turns yellow Sub Copier() what can i do to fix it.By Tyler Dempsey[/quote] Double check your code and make sure you don't have a space at ActiveWorkbook. Sheets(s).Copy _ or at Sheets(Worksheets.Cou nt)
This comment was minimized by the moderator on the site
Fantastic VBA code - really helped
This comment was minimized by the moderator on the site
When I first tried it, I got the error message because I didn't change the name Sheet1. After I realized what caused the error, I researched a little further, as I did not want to be manually entering the sheet name into the macro. And when I need this feature, it is almost always for the current sheet. I added the line a = activesheet.name And revised the line after:=activeworkbook.sheets("sheet1") to activeworkbook.sheets(a).copy _ That worked very well, but I did notice the numbering was reversed ... that didn't bother me as I was going to manually rename the new sheets anyway. When I saw Schuyler's post, I further revised the line activeworkbook.sheets(a).copy _ to after:=activeworkbook.sheets(worksheets.count) I am now satisfied with the result. My finished macro: Sub copies() 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(Worksheets.Count) Next End Sub --- All the best, Barry
This comment was minimized by the moderator on the site
i got syntax error on "After:=ActiveWorkbook.Sheets(Worksheets.Count)


but i dunno whats wrong... Can u help me please?
This comment was minimized by the moderator on the site
Thank you so much Barry. Your finished macro is the only thing that worked for me.
This comment was minimized by the moderator on the site
where i will insert this above code in vba should i create common button then inside ?? regards.
This comment was minimized by the moderator on the site
Follow the below steps:
1. Copy the above code
2. Hold down the ALT + F11 keys, and it opens the Microsoft Visual Basic for Applications window.
2. Click Insert > Module, and paste the following code in the Module Window.
4.Then press F5 key to run the code
5.A prompt box appears to ask you the number of sheet copies you want.
This comment was minimized by the moderator on the site
I get an error that 'numtimes' is not defined...?
This comment was minimized by the moderator on the site
I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)
This comment was minimized by the moderator on the site
[quote]I got the same error as Theou and no one seems to have addressed it. My tabs are already named PO 51, PO 52, etc. and I replaced Sheet1 with PO 51 to copy that and got the subscript error out of range (9) I followed Schuyler's code to get the right order, but I still get the error and it's always due to these two lines: ActiveWorkbook.Sheets(s).Copy _ Before:=ActiveWorkbook.Sheets(Worksheets.Count)By Debbi[/quote] Can you include your complete code to make it easier to debug? A "subscript error out of range" usually means that the code references something that doesn't exist. I find this in my own code when I've got a typo or something of that nature.
This comment was minimized by the moderator on the site
how to copy with same column widths
This comment was minimized by the moderator on the site
Same column widths as the original Worksheet or do you want all of the column widths to be the same?
This comment was minimized by the moderator on the site
yes it works thanks I have successfully make multiple copies of a single worksheet in same workbook by using vba code thnx a lot.
This comment was minimized by the moderator on the site
Search for word "After" and change it to "Before". This will create copies in right order "Before" Sheet1. The only thing to rememeber is that numbering will always start from (2) as the original sheet will always be counted as 1st copy. Also you can replace "Sheet1" with name of the tab you are trying to copy.
This comment was minimized by the moderator on the site
[quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By MichaelTadashi[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!
This comment was minimized by the moderator on the site
[quote][quote]Using the VBA code, the naming of the duplicated worksheets is in reverse order. Let's say I make 10 copies of Sheet1, I'll end up with Sheet1, Sheet1(10), Sheet1(9), Sheet1(8),.......is it possible to have them in normal order?By juan[/quote] Anyone was able to answer this question? I need to create 72 copies, but it would be needed to have them in order (1 throught 72, intead of 72 through 1) Thanks!By MichaelTadashi[/quote]e] If you want the sheet copies to be in sequential order instead of backwards, change the following line... After:=ActiveWorkbook.Sheets("Sheet1") to this... After:=ActiveWorkbook.Sheets(Worksheets.Count) My completed code looked like the following which uses 2 InputBox prompts to allow for a dynamic copy count and worksheet name.. Sub Copier() Dim s As String Dim numtimes As Integer Dim numCopies As Integer numCopies = InputBox("How many copies do you need?") s = InputBox("Enter the name of the Worksheet you want to copy") For numtimes = 1 To numCopies ActiveWorkbook.Sheets(s).Copy _ After:=ActiveWorkbook.Sheets(Worksheets.Count) Next End Sub
This comment was minimized by the moderator on the site
How do i get the coppies continuous numbered. If the sheet i want to copy is named I002, and i want the next to be named I003,I004,I005 an so on.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations