So fügen sie mit vba neue blätter in excel hinzu

Sie können in VBA die folgenden Methoden verwenden, um einer Excel-Arbeitsmappe neue Blätter hinzuzufügen:

Methode 1: Fügen Sie ein neues Blatt hinzu

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit einem automatisch generierten Namen hinzu, der die Blattnummer beschreibt, die es in der Arbeitsmappe darstellt.

Wenn die Arbeitsmappe beispielsweise drei Blätter enthält und Sie dieses Makro ausführen, wird ein neues Blatt mit dem Namen Blatt4 erstellt.

Hinweis : Standardmäßig fügt VBA das neue Blatt unmittelbar vor dem aktuell aktiven Blatt hinzu.

Methode 2: Mehrere neue Blätter hinzufügen

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Dieses Makro fügt der Arbeitsmappe drei neue Blätter hinzu.

Methode 3: Fügen Sie ein neues Blatt mit einem Namen hinzu

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet hinzu.

Methode 4: Fügen Sie ein neues Blatt mit einem Namen vor einem bestimmten Blatt hinzu

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet direkt vor dem vorhandenen Blatt namens Teams hinzu.

Methode 5: Fügen Sie ein neues Blatt mit einem Namen nach einem bestimmten Blatt hinzu

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet "
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet direkt nach dem vorhandenen Blatt namens Teams hinzu.

Methode 6: Fügen Sie am Ende der Arbeitsmappe ein neues Blatt mit einem Namen hinzu

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet ganz am Ende der Arbeitsmappe hinzu.

Methode 7: Fügen Sie am Anfang der Arbeitsmappe ein neues Blatt mit einem Namen hinzu

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Dieses Makro fügt der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet ganz am Anfang der Arbeitsmappe hinzu.

Die folgenden Beispiele zeigen, wie Sie die einzelnen Methoden in der Praxis mit der folgenden Excel-Arbeitsmappe mit drei vorhandenen Blättern anwenden können:

Beispiel 1: Ein neues Blatt hinzufügen

Wir können das folgende Makro erstellen, um der Arbeitsmappe ein neues Blatt mit einem automatisch generierten Namen hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add
End Sub

Wenn wir dieses Makro ausführen, wird der Arbeitsmappe ein neues Blatt mit dem Namen Sheet4 direkt vor dem Teams- Blatt hinzugefügt, das wir beim Ausführen des Makros ausgewählt hatten:

Beispiel 2: Mehrere neue Blätter hinzufügen

Wir können das folgende Makro erstellen, um der Arbeitsmappe drei neue Blätter mit automatisch generierten Namen hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add Count:=3
End Sub

Wenn wir dieses Makro ausführen, werden der Arbeitsmappe direkt vor dem Teams- Blatt, das wir beim Ausführen des Makros ausgewählt hatten, drei neue Blätter hinzugefügt:

Beispiel 3: Fügen Sie ein neues Blatt mit einem Namen hinzu

Wir können das folgende Makro erstellen, um der Arbeitsmappe ein neues Blatt mit einem bestimmten Namen hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add.Name = " MyNewSheet "
End Sub

Wenn wir dieses Makro ausführen, wird der Arbeitsmappe direkt vor dem Teams -Blatt, das wir beim Ausführen des Makros ausgewählt hatten, ein neues Blatt mit dem Namen „MyNewSheet“ hinzugefügt:

Beispiel 4: Fügen Sie ein neues Blatt mit einem Namen vor einem bestimmten Blatt hinzu

Wir können das folgende Makro erstellen, um der Arbeitsmappe direkt vor einem bestimmten vorhandenen Blatt ein neues Blatt hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Wenn wir dieses Makro ausführen, wird der Arbeitsmappe direkt vor dem Teams -Blatt ein neues Blatt mit dem Namen MyNewSheet hinzugefügt:

Beispiel 5: Fügen Sie ein neues Blatt mit einem Namen nach einem bestimmten Blatt hinzu

Wir können das folgende Makro erstellen, um direkt nach einem bestimmten vorhandenen Blatt ein neues Blatt zur Arbeitsmappe hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(" Teams ")).Name = " MyNewSheet " 
End Sub

Wenn wir dieses Makro ausführen, wird der Arbeitsmappe direkt nach dem Teams- Blatt ein neues Blatt mit dem Namen „MyNewSheet“ hinzugefügt:

Beispiel 6: Fügen Sie am Ende der Arbeitsmappe ein neues Blatt mit einem Namen hinzu

Wir können das folgende Makro erstellen, um ganz am Ende der Arbeitsmappe ein neues Blatt hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add(After:=Sheets(Sheets.Count)).Name = " MyNewSheet "
End Sub

Wenn wir dieses Makro ausführen, wird ganz am Ende der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet hinzugefügt:

Beispiel 7: Fügen Sie am Anfang der Arbeitsmappe ein neues Blatt mit einem Namen hinzu

Wir können das folgende Makro erstellen, um ganz am Anfang der Arbeitsmappe ein neues Blatt hinzuzufügen:

 Sub AddSheetToWorkbook()
Sheets.Add(Before:=Sheets(1)).Name = " MyNewSheet "
End Sub

Wenn wir dieses Makro ausführen, wird ganz am Anfang der Arbeitsmappe ein neues Blatt mit dem Namen MyNewSheet hinzugefügt:

Hinweis : Die vollständige Dokumentation zur Sheets.Add -Methode finden Sie hier .

Zusätzliche Ressourcen

In den folgenden Tutorials wird erläutert, wie Sie andere häufige Aufgaben in VBA ausführen:

VBA: So finden Sie die zuletzt verwendete Zeile
VBA: So finden Sie die zuletzt verwendete Spalte
VBA: So zählen Sie die Anzahl der Blätter in einer Arbeitsmappe