Direkt zum Inhalt

Wie füge ich ein neues Blatt mit einem bestimmten Namen in Excel hinzu?

Manchmal möchten Sie ein neues Blatt erstellen und es in Excel automatisch mit einem bestimmten Namen benennen. In diesem Artikel zeigen wir Ihnen zwei Methoden zum Hinzufügen eines neuen Blattes mit einem bestimmten Namen in der aktuellen Arbeitsmappe sowie zum Erstellen eines Arbeitsblatts mit einem bestimmten Namen in einer neuen Arbeitsmappe in Excel.

Automatisches Hinzufügen eines neuen Blattes mit einem bestimmten Namen in der aktuellen Arbeitsmappe mit VBA-Code
Automatisches Hinzufügen eines neuen Blattes mit einem bestimmten Namen in einer neuen Arbeitsmappe mit Kutools für Excel


Automatisches Hinzufügen eines neuen Blattes mit einem bestimmten Namen in der aktuellen Arbeitsmappe mit VBA-Code

Sie können am Ende der aktuellen Arbeitsmappe ein neues Blatt mit einem bestimmten Namen mit folgendem VBA-Code hinzufügen.

1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul.

3. Kopieren Sie den folgenden VBA-Code und fügen Sie ihn in den ein Modul Fenster.

VBA-Code: Fügen Sie am Ende der aktuellen Arbeitsmappe ein neues Blatt mit einem bestimmten Namen hinzu

Sub CreateSheet()
'Updated by ExtendOffice 20181009
    Dim xName As String
    Dim xSht As Object
    On Error Resume Next
    xName = InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
    If xName = "" Then Exit Sub
        Set xSht = Sheets(xName)
        If Not xSht Is Nothing Then
            MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
            Exit Sub
            End If
            Sheets.Add(, Sheets(Sheets.count)).Name = xName
        End Sub

4. Drücken Sie F5 Schlüssel zum Ausführen des Codes. Beim Auftauchen Kutools for Excel Geben Sie im Dialogfeld einen Namen für dieses Blatt ein und klicken Sie auf OK Taste. Siehe Screenshot:

Anschließend wird ein neues Arbeitsblatt mit einem bestimmten Namen erstellt, das sich am Ende der aktuellen Arbeitsmappe befindet.


Automatisches Hinzufügen eines neuen Blattes mit einem bestimmten Namen in einer neuen Arbeitsmappe mit Kutools für Excel

In diesem Abschnitt stellen wir das vor Erstellen Sie Sequenzarbeitsblätter Nutzen von Kutools for Excel. Mit diesem Dienstprogramm können Sie problemlos ein neues Blatt mit einem bestimmten Namen in eine neue Arbeitsmappe einfügen.

Vor der Bewerbung Kutools for Excel, Bitte Laden Sie es zuerst herunter und installieren Sie es.

1. Um ein neues Blatt mit einem bestimmten Namen hinzuzufügen, müssen Sie diesen Namen im Voraus in eine Zelle eingeben. Und dann klicken Kutoolen Plus > Arbeitsblatt > Erstellen Sie Sequenzarbeitsblätter.

2. In dem Erstellen Sie Sequenzarbeitsblätter Dialogfeld auswählen Leeres Arbeitsblatt der Basisarbeitsblatt Dropdown-Liste, wählen Sie Datumin einem Bereich Geben Sie die Zelle an, die den bestimmten Arbeitsblattnamen enthält, und klicken Sie schließlich auf OK Taste. Siehe Screenshot:

Anschließend wird sofort ein neues Arbeitsblatt mit diesem bestimmten Namen aus einer Zelle in einer neuen Arbeitsmappe erstellt.

Notizen:

1. Wenn Sie mehrere neue Blätter mit bestimmten Namen gleichzeitig erstellen möchten, geben Sie diese Namen nacheinander in die Zellen ein und wählen Sie diese Zellen in der aus Daten in einem Bereich Box.
2. Sie können damit auch Sequenzarbeitsblätter aus einer Seriennummer oder einer benutzerdefinierten Liste erstellen Erstellen Sie Sequenzarbeitsblätter Nützlichkeit. Siehe Screenshot:

  Wenn Sie eine kostenlose Testversion (30 Tage) dieses Dienstprogramms wünschen, Bitte klicken Sie, um es herunterzuladenund wenden Sie dann die Operation gemäß den obigen Schritten an.

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 (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, this does not properly account for user clicking cancel. It still creates worksheet.
This comment was minimized by the moderator on the site
Hi
The code has been updated with the problem solving. Please have a try and thanks for your comment.
This comment was minimized by the moderator on the site
Hi, I'm quite new to VBA, the above code works great for adding a new spreadsheet and renaming it, however I would then like it to automatically copy and paste the contents on my 'template' sheet into the new sheet? Can anybody help please?

Thanks
This comment was minimized by the moderator on the site
Good day,
Please try the below VBA code. Hope it can help. Thanks for your comment.

Sub CreateSheet()
Dim xName As String
Dim xSht As Object
Dim xNWS As Worksheet
On Error Resume Next
xName = Application.InputBox("Please enter a name for this new sheet ", "Kutools for Excel")
If xName = "" Then Exit Sub
Set xSht = Sheets(xName)
If Not xSht Is Nothing Then
MsgBox "Sheet cannot be created as there is already a worksheet with the same name in this workbook"
Exit Sub
End If
ActiveSheet.Copy after:=Sheets(Sheets.count)
Set xNWS = Sheets(Sheets.count)
xNWS.Name = xName
End Sub
This comment was minimized by the moderator on the site
Thank you for your reply crystal! I have it working now :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations