In diesem Artikel finden Sie die Antworten auf Ihre Fragen zu wie man in Excel ein Blatt mit Namen hinzufügt VBA Wenn Sie auf der Suche nach solchen einzigartigen Tricks sind, sind Sie hier genau richtig. Hier werden wir über 6 easy & bewährte Methoden zum Hinzufügen eines Blattes mit einem Namen in Excel VBA .

Download Arbeitsbuch Praxis

Sie können die folgende Excel-Arbeitsmappe zum besseren Verständnis und zur Übung selbst herunterladen.

VBA-Code zum Hinzufügen von Blättern mit Namen

Wir verwenden die Objekt "Blätter um ein Blatt in Excel hinzuzufügen. Die grundlegende VBA Der Code zum Hinzufügen eines Blattes mit dem Namen sieht wie folgt aus.

Vorher: Sie ist optional und fügt ein neues Blatt vor einem bestimmten Blatt ein.

Danach: Sie ist ebenfalls optional und fügt ein neues Blatt nach einem bestimmten Blatt ein.

Zählen: Er ist ebenfalls ein optionaler Parameter, der die Anzahl der hinzuzufügenden Blätter angibt.

Art: Sie ist ebenfalls optional und gibt den Typ des Blattes an. Der Standardwert ist hier xlArbeitsblatt .

6 verschiedene Möglichkeiten zum Hinzufügen von Blättern mit Namen in Excel VBA

In Excel können wir ein neues Blatt mit der Funktion Hinzufügen ⊕ Symbol direkt neben dem Blattnamen. Haben Sie schon einmal daran gedacht, die gleiche Aufgabe in Excel zu automatisieren? Denken Sie nicht mehr daran, denn VBA hat für Sie gesorgt.

Hier haben wir ein Arbeitsblatt mit dem Namen Verkaufsbericht Sie enthält die Täglicher Verkaufsbericht einer bestimmten Cafeteria. In Spalten B , C und D gibt es Namen von Vertriebsmitarbeiter , Artikel und Menge beziehungsweise.

Hier fügen wir weitere Blätter in dieser Arbeitsmappe mit Hilfe von VBA-Makro .

Hier haben wir verwendet Microsoft Excel 365 Version, können Sie jede andere Version verwenden, die Ihnen zusagt.

1. ein Blatt mit Namen in Excel VBA hinzufügen

In unserer ersten Methode fügen wir ein Blatt mit dem Namen aus der Datei Benutzereingabe Wenn Sie neugierig geworden sind, folgen Sie diesen einfachen Schritten.

📌 Schritte:

• Gehen Sie gleich zu Beginn auf die Seite Entwickler tab.
• Zweitens: Wählen Sie Visual Basic über die Code Gruppe.
• Alternativ können Sie auch ALT + F11 um die gleiche Aufgabe zu erledigen.

Anmerkung: Achten Sie darauf, die Taste ALT Taste auf der linken Seite des SPACEBAR Der Vorgang wird nicht ausgeführt, wenn Sie andere ALT Tasten.

• Sofort wird die Microsoft Visual Basic für Anwendungen öffnet sich das Fenster.
• Später, Umzug in die einfügen. tab.
• Wählen Sie dann Modul aus den Optionen.

• Gegenwärtig wird der Code Modul .
• Schreiben Sie anschließend den folgenden Code in die Datei Modul .

 Sub Add_Sheet_with_Name() Dim sheet_name As String Dim sheet As Object On Error Resume Next sheet_name = InputBox("Please enter sheet name ", _ "Exceldemy") If sheet_name = "" Then Exit Sub Sheets.Add.Name = sheet_name End Sub 

Code-Aufschlüsselung

• Erstens rufen wir die Sub-Prozedur als Blatt_mit_Name_hinzufügen .
• Dann definieren wir die Variablentypen.
• Später haben wir die Bei Fehler Fortsetzen Weiter Dadurch werden alle Fehler ignoriert.
• Danach haben wir Eingabefeld um den Namen des Blattes vom Benutzer zu erhalten. Außerdem haben wir die Textzeichenfolge aus der Datei Eingabefeld in die blatt_name variabel.
• Wenn dann die blatt_name leer ist, wird der Code nicht fortgesetzt.
• Schließlich verwenden wir die Hinzufügen.Name Methode, um das neu erstellte Blatt zu benennen, wobei der Name derselbe ist wie in der blatt_name variabel.

• Drücken Sie in diesem Moment die Taste Laufen (⏵) Stattdessen können Sie die Taste F5 auf Ihrer Tastatur.

• Plötzlich öffnet sich ein Eingabefeld.
• Geben Sie hier den Namen des neuen Blattes ein. In diesem Fall haben wir geschrieben Gewinn in der Schachtel.
• Später, klicken Sie auf OK .

• Unser Code wird also ausgeführt, und es wird ein Blatt namens Gewinn .

Anmerkung: Wir haben keinen Platz für unser Blatt angegeben, es wird standardmäßig vor dem aktiven Blatt platziert.

Lesen Sie mehr: Excel VBA zum Hinzufügen von Blättern zu einer anderen Arbeitsmappe (3 praktische Beispiele)

2 Excel VBA anwenden, um Blatt mit Namen vor einem bestimmten Blatt hinzuzufügen

Bei unserer zweiten Methode fügen wir ein Blatt mit dem Namen vor einem bestimmten Blatt hinzu. Lassen Sie uns den Prozess Schritt für Schritt erkunden.

📌 Schritte:

• Rufen Sie erstens den Code auf Modul Fenster wie in Methode 1 .
• Zweitens: Schreiben Sie den folgenden Code in diese Datei.

 Sub Add_Sheet_Before_Specific_Sheet() Worksheets("Sales Report").Activate Sheets.Add(Before:=Sheets("Profit")).Name = "Balance Sheet" End Sub 

Code-Aufschlüsselung

• Erstens rufen wir die Sub-Prozedur als Blatt_vor_besonderem_Blatt_hinzufügen .
• Dann aktivieren wir die Verkaufsbericht Dadurch wird sichergestellt, dass der Code auch dann ausgeführt wird, wenn wir uns auf einem anderen Blatt befinden.
• Als nächstes verwenden wir die Hinzufügen.Name Methode, um das neu erstellte Blatt zu benennen. Dieses Blatt wird vor dem Blatt mit dem Namen Gewinn aus der Arbeitsmappe. Außerdem haben wir das Blatt als Bilanz .

• Danach führen Sie den Code wie in Methode 1 .
• Es wird also ein neues Blatt hinzugefügt Bilanz vor dem Blatt mit dem Namen Gewinn .

Lesen Sie mehr: Excel VBA zum Hinzufügen von Blättern mit Variablennamen (5 ideale Beispiele)

3. mit Excel VBA ein Blatt mit Namen nach einem bestimmten Blatt hinzufügen

In dieser Methode fügen wir ein Blatt nach dem Blatt namens Gewinn Schauen wir uns den Prozess im Detail an.

📌 Schritte:

• Rufen Sie zunächst den Code Modul Fenster wie in Methode 1 .
• Danach schreiben Sie den folgenden Code hinein.

 Sub Add_Sheet_After_Specific_Sheet() Worksheets("Profit").Activate Sheets.Add(After:=ActiveSheet).Name = "Warehouse" End Sub 

Dieser Code ist fast identisch mit dem Code von Methode 2 Hier haben wir einfach den Parameter Nach statt Vor Denn wir wollen das neue Blatt als Nachfolger eines bestimmten Blattes hinzufügen.

• Danach führen Sie den Code wie in Methode 1 .
• Es wird also ein neues Blatt hinzugefügt Lagerhaus nach dem Blatt namens Gewinn .

Lesen Sie mehr: Excel VBA, um ein Blatt hinzuzufügen, wenn es nicht vorhanden ist (mit schnellen Schritten)

4. ein Blatt mit Namen am Anfang der Arbeitsmappe einfügen

In diesem Abschnitt werden wir ein neues Blatt am Anfang der Arbeitsmappe in Excel einfügen, indem wir VBA Also, ohne weitere Verzögerung, schauen wir mal, wie wir das machen.

📌 Schritte:

• Rufen Sie zunächst den Code Modul Fenster wie in Methode 1 .
• Danach schreiben Sie den folgenden Code hinein.

 Sub Add_Sheet_Start_Workbook() Sheets.Add(Before:=Sheets(1)).Name = "Firmenprofil" End Sub 

Hier fügen wir das neue Arbeitsblatt vor dem ersten Blatt der Arbeitsmappe ein, d.h. am Anfang der Arbeitsmappe. Folglich ist es jetzt das erste Blatt. Außerdem haben wir das Blatt Firmenprofil .

• Führen Sie dann den Code aus, wie er in Methode 1 .
• Es wird also ein neues Blatt hinzugefügt Firmenprofil am Anfang der Arbeitsmappe.

Lesen Sie mehr: Excel-Makro: Neues Blatt erstellen und umbenennen (3 ideale Beispiele)

5 Excel VBA verwenden, um ein Blatt am Ende der Arbeitsmappe hinzuzufügen

In diesem Abschnitt werden wir ein Blatt nach dem letzten Blatt der Arbeitsmappe hinzufügen Erlauben Sie mir, den Prozess unten zu demonstrieren.

📌 Schritte:

• Öffnen Sie in erster Linie den Code Modul Fenster wie in Methode 1 .
• Fügen Sie dann den folgenden Code ein.

 Sub Sheet_End_Workbook() Sheets.Add(After:=Sheets(Sheets.Count)).Name = "Erfolgsrechnung" End Sub 

Code-Aufschlüsselung

• Erstens rufen wir die Sub-Prozedur als Sheet_End_Workbook auf.
• Als nächstes verwenden wir die Hinzufügen.Name Methode, um das neu erstellte Blatt zu benennen. Wir erstellen dieses Blatt nach dem letzten Blatt der Arbeitsmappe. Die Nummer des letzten Blattes können wir aus der Blätter.Anzahl Außerdem haben wir das Blatt Gewinn- und Verlustrechnung .

• Danach führen Sie den Code wie in Methode 1 .
• Es wird also ein neues Blatt hinzugefügt Gewinn- und Verlustrechnung am Ende der Arbeitsmappe.

Lesen Sie mehr: Neue Arbeitsmappe erstellen und mit VBA in Excel speichern

6. mehrere Blätter mit Zellwert durch Excel VBA einführen

Bei der letzten Methode werden wir mehrere Blätter in der Arbeitsmappe mit dem Namen eines Zellbereichs hinzufügen, indem wir Excel verwenden VBA Außerdem werden wir den Benutzer um die Eingabe des Bereichs bitten, aus dem der Name entnommen werden soll. Schauen wir uns also die folgenden Schritte an.

📌 Schritte:

• Öffnen Sie zunächst den Code Modul Fenster wie in Methode 1 .
• Kopieren Sie anschließend den folgenden Code und fügen Sie ihn dort ein.

 Sub Add_Multiple_Sheets_Using_Cell_Value() Dim rng As Range Dim cc As Range Set rng = Application.InputBox("Select Cell Range" _ & " to Insert Sheets", "ExcelWIKI", Type:=8) Application.ScreenUpdating = False Worksheets("Sales Report").Activate For Each cc In rng Sheets.Add(After:=ActiveSheet).Name = cc.Value Next cc Application.ScreenUpdating = True End Sub 

Code-Aufschlüsselung

• Erstens rufen wir die Sub-Prozedur als Add_Multiple_Sheets_Using_Cell_Value auf.
• Dann definieren wir die Variablentypen.
• Danach verwenden wir Eingabefeld um den Bereich der Daten vom Benutzer zu erhalten.
• Viertens: Wir aktivieren das Blatt Verkaufsbericht .
• Später verwenden wir eine Für jeden nächsten Schleife, um den ausgewählten Zellbereich nacheinander zu durchlaufen.
• Als nächstes verwenden wir die Hinzufügen.Name Methode, um das neu erstellte Blatt zu benennen. Wir erstellen diese Blätter nach dem aktiven Blatt Verkaufsbericht der Arbeitsmappe.

• Führen Sie nun den Code aus, wie er in Methode 1 .
• Sofort wird die Exzellent öffnet sich ein Eingabefeld.
• Geben Sie dann den Zellen im Feld B5:B9 Bereich in der Box.
• Klicken Sie abschließend auf OK .

• Schließlich fügt sie ein fünf Blätter, die nach den Zellwerten in der Tabelle B5:B9 Sie sind alle nach dem Blatt Verkaufsbericht .

Schlussfolgerung

Dieser Artikel bietet einfache und kurze Lösungen zum Hinzufügen von Blättern mit Namen durch Excel VBA Vergessen Sie nicht den Download der Praxis Vielen Dank für die Lektüre dieses Artikels, wir hoffen, dass er hilfreich war. Bitte lassen Sie uns im Kommentarbereich wissen, wenn Sie Fragen oder Anregungen haben. Bitte besuchen Sie unsere Website Exzellent um mehr zu erfahren.