Wie erstelle ich schnell mehrere Blätter mit demselben Format in Excel?

Wenn Sie ein Blatt in Excel mit einem bestimmten Format erstellt haben und dieses Format auf mehrere Blätter übertragen möchten, fragen Sie sich vielleicht, wie Sie das schnell machen können. Dieses Tutorial führt Sie durch verschiedene Methoden, um effizient mehrere Blätter mit demselben Format zu erstellen.

Arbeitsblätter mit gleichem Format durch Verschieben oder Kopieren erstellen

Arbeitsblätter mit gleichem Format durch VBA erstellen

Arbeitsblätter mit gleichem Format mithilfe von Kutools für Excel erstellen

Arbeitsblätter mit gleichem Format durch Verschieben oder Kopieren erstellen

In Excel können Sie den Befehl „Verschieben oder Kopieren“ verwenden, um ein Blatt mit demselben Format wie das ausgewählte Blatt zu erstellen.

1. Klicken Sie auf das Blatt, das das benötigte Format auf der Registerkarte „Blatt“ hat, und klicken Sie mit der rechten Maustaste, um „Verschieben oder Kopieren“ im Kontextmenü auszuwählen. Siehe Screenshot:

2. Aktivieren Sie im erscheinenden Dialogfeld die Option „Kopie erstellen“. Siehe Screenshot:

3. Klicken Sie auf „OK“. Ein neues Blatt mit demselben Format wird vor dem ausgewählten Blatt erstellt. Siehe Screenshot:

Hinweis:

(1) Sie können auch auf „Start“ > „Format“ > „Blatt verschieben oder kopieren“ klicken, um das Dialogfeld „Verschieben oder Kopieren“ zu öffnen.

(2) Diese Methode kann zeitaufwendig sein, wenn Sie Hunderte von Blättern mit demselben Format erstellen müssen.

Arbeitsblätter mit gleichem Format durch VBA erstellen

Ein VBA-Code kann Ihnen helfen, schnell mehrere Arbeitsblätter mit demselben Format auf einmal zu erstellen.

1. Drücken Sie die Tasten „Alt“ + „F11“, um das Fenster „Microsoft Visual Basic for Applications“ zu öffnen, dann klicken Sie auf „Einfügen“ > „Modul“ und kopieren und fügen Sie den folgenden Code in das Modulfenster ein.

VBA: Arbeitsblätter mit gleichem Format erstellen.

Sub CopyWorkSheets()
'Updateby20150526
Dim xNumber As Integer
Dim xWsName As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
xWsName = Application.InputBox("Copy worksheet name", xTitleId, , Type:=2)
xNumber = Application.InputBox("Copy number", xTitleId, , Type:=1)
For i = 1 To xNumber
    Application.ActiveWorkbook.Sheets(xWsName).Copy _
    After:=Application.ActiveWorkbook.Sheets(xWsName)
Next
End Sub

2. Drücken Sie die Taste „F5“, um den VBA-Code auszuführen, dann erscheint ein Dialogfeld, in dem Sie den Namen des Arbeitsblatts eingeben können, dessen Format Sie kopieren möchten.

3. Klicken Sie auf „OK“ und geben Sie die Anzahl der benötigten Kopien in einem weiteren Dialogfeld an. Siehe Screenshot:

4. Klicken Sie auf „OK“. Dann werden sechs Kopien von Arbeitsblättern mit demselben Format erstellt.

Arbeitsblätter mit gleichem Format mithilfe von Kutools für Excel erstellen

Wenn Sie keine VBA verwenden möchten, stelle ich Ihnen hier ein praktisches Tool vor – „Kutools für Excel“. Mit dem Dienstprogramm „Arbeitsblätter kopieren“ können Sie schnell und einfach Blätter mit demselben Format erstellen.

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

2. Im Dialogfeld „Arbeitsblätter stapelweise kopieren“ gehen Sie wie folgt vor:

(1) Aktivieren Sie den Namen des Arbeitsblatts, dessen Format Sie aus der Liste „Ausgewählte Arbeitsblätter kopieren“ kopieren möchten;

(2) Geben Sie die Anzahl der Kopien an;

(3) Geben Sie den Ort an, an dem Sie die Kopien platzieren möchten.

3. Klicken Sie auf „OK“. Ein Dialogfeld erscheint, das Sie darüber informiert, dass die Kopien erfolgreich erstellt wurden. Klicken Sie auf „OK“, um es zu schließen.

Jetzt sehen Sie, dass die angegebene Anzahl von Arbeitsblättern mit demselben Format erstellt wurde.

Klicken Sie hier, um weitere Details über das Kopieren mehrerer Arbeitsblätter zu erfahren.