Direkt zum Inhalt

Wie erstelle ich eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern?

Wenn Sie eine neue Arbeitsmappe erstellen, enthält diese normalerweise standardmäßig drei Arbeitsblätter in Excel 2007/2010 oder ein Blatt in Excel 2013. Später können Sie die Registerkarten nach Bedarf hinzufügen oder löschen. Aber haben Sie jemals versucht, jedes Mal eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern zu erstellen?

Erstellen Sie mithilfe von VBA-Code eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern

Erstellen Sie mit Kutools for Excel eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern


Pfeil blau rechte Blase Erstellen Sie mithilfe von VBA-Code eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern

Mit dem folgenden VBA-Code können Sie eine neue Arbeitsmappe mit einer bestimmten Anzahl von Registerkarten erstellen.

1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

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

VBA-Code: Erstellen Sie eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern

Sub MakeWorkbook()
'update Extendoffice
    Dim xOldCount As Integer
    Dim xNewCount As Variant
    xOldCount = Application.SheetsInNewWorkbook
    xNewCount = Application.InputBox("How many sheets in the new workbook do you want?", "Kutools for Excel", , , , , , 1)
    If xNewCount = False Then Exit Sub
    If (xNewCount < 1) Or (CLng(xNewCount) > 255) Then
        MsgBox "The number must between 1 and 255!"
        Exit Sub
    End If
    With Application
        .SheetsInNewWorkbook = xNewCount
        .Workbooks.Add
        .SheetsInNewWorkbook = xNewCount
    End With
End Sub

3. Drücken Sie nach dem Einfügen des Codes F5 Geben Sie die Taste zum Ausführen dieses Codes ein und geben Sie im Eingabeaufforderungsfeld die Anzahl der gewünschten Blätter in die Arbeitsmappe ein (siehe Abbildung):

doc Arbeitsmappe mit Registerkarten erstellen 1

4. Dann klick OK Schaltfläche, wurde die neue Arbeitsmappe mit der angegebenen Anzahl von Blättern erstellt, die Sie benötigen.


Pfeil blau rechte Blase Erstellen Sie mit Kutools for Excel eine neue Arbeitsmappe mit einer bestimmten Anzahl von Arbeitsblättern

Wenn Sie mit dem VBA-Code nicht vertraut sind, können Sie ein praktisches Tool anwenden - Kutools for ExcelMit seinen Erstellen Sie Sequenzarbeitsblätter Mit diesem Dienstprogramm können Sie schnell eine neue Arbeitsmappe mit Standardblattnamen, benutzerdefinierten Blattnamen usw. erstellen.

Kutools for Excel : Mit mehr als 300 praktischen Excel-Add-Ins können Sie diese innerhalb von 30 Tagen ohne Einschränkung testen.

Nach der Installation Kutools for ExcelBitte gehen Sie wie folgt vor:

1. Klicken Sie Unternehmen > Arbeitsblatt > Erstellen Sie ein Sequenzarbeitsblatt, siehe Screenshot:

doc Arbeitsmappe mit Registerkarten erstellen 3

2. In den Erstellen Sie Sequenzarbeitsblätter Führen Sie im Dialogfeld die folgenden Vorgänge aus:

(1.) Wählen Sie Leeres Arbeitsblatt unter dem Basisarbeitsblatt Dropdown-Liste;

(2.) Geben Sie die Anzahl der Blätter in der neuen Arbeitsmappe unter ein Die Anzahl der erstellen Textfeld;

(3.) Aus dem Blattnamen basierend auf Abschnitt auswählen Excel-Standardname .

Laden Sie Kutools for Excel jetzt kostenlos herunter

3. Dann klick OK Klicken Sie auf die Schaltfläche, und die neue Arbeitsmappe wird mit Ihrer spezifischen Anzahl von Arbeitsblättern erstellt.

Klicken Sie hier, um mehr über dieses Dienstprogramm zum Erstellen von Sequenzarbeitsblättern zu erfahren.

Laden Sie Kutools for Excel jetzt kostenlos herunter


In Verbindung stehende Artikel:

Wie erstelle ich Arbeitsblätter für Sequenzen aus einer Reihe von Zellen in Excel?

Wie füge ich ein neues Arbeitsblatt mit dem aktuellen Datum in Excel hinzu?

Beste Office-Produktivitätstools

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 ...

kte tab 201905


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations