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
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):
4. Dann klick OK Schaltfläche, wurde die neue Arbeitsmappe mit der angegebenen Anzahl von Blättern erstellt, die Sie benötigen.
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:

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 .
3. Dann klick OK Klicken Sie auf die Schaltfläche, und die neue Arbeitsmappe wird mit Ihrer spezifischen Anzahl von Arbeitsblättern erstellt.
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?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

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!
