Wie erstelle ich Sequenzarbeitsblätter aus einem Zellbereich in Excel?
Wenn Sie in Ihrem Arbeitsblatt einen Datenbereich haben und daraus eine Folge von Arbeitsblättern basierend auf den Zelldaten erstellen möchten, sehen Sie sich den folgenden Screenshot an. Natürlich könnten Sie die Arbeitsblattnamen manuell einzeln anpassen – doch sobald mehrere Namen geändert werden müssen, wird diese Methode schnell mühsam und zeitaufwendig. Im Folgenden stelle ich Ihnen einige schnelle Tricks vor, die Ihnen dabei helfen.
Sequenzarbeitsblätter erstellen aus einer Liste von Zellen mit VBA-Code
Sequenzarbeitsblätter erstellen aus einer Liste von Zellen mit Kutools für Excel
Sequenzarbeitsblätter erstellen aus einer Liste von Zellen mit VBA-Code
Der folgende VBA-Code unterstützt Sie dabei, Arbeitsblätter hinzuzufügen, die entsprechend des Inhalts bestimmter Zellen benannt und direkt nach einem vorhandenen Arbeitsblatt eingefügt werden. Gehen Sie dazu wie folgt vor:
1. Halten Sie die ALT + F11-Tasten gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Arbeitsblätter nacheinander basierend auf einer Liste von Zellen hinzufügen
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint dann ein Eingabefeld, in dem Sie den gewünschten Bereich auswählen können. Siehe Screenshot:
4. Klicken Sie dann auf OK, um die Arbeitsblätter, die nach den Zellwerten benannt wurden, nach dem vorhandenen Arbeitsblatt hinzuzufügen. Siehe Screenshot:
Hinweise:
1. Das neue Arbeitsblatt wird nach dem aktuellen Arbeitsblatt eingefügt.
2. Wenn der ausgewählte Bereich leere Zellen enthält, werden die Arbeitsblätter standardmäßig benannt. Siehe Screenshots:
 |
 |
 |
Sequenzarbeitsblätter erstellen aus einer Liste von Zellen mit Kutools für Excel
Hier stelle ich ein praktisches Tool vor – Kutools für Excel – mit dessen Funktion Sequenzarbeitsblätter erstellen Sie schnell Arbeitsblätter mit Monatsnamen, Wochentagen, benutzerdefinierten Listen usw. erstellen können.
Kutools für Excel bietet mehr als 300 praktische Excel-Tools – testen Sie es jetzt 30 Tage lang kostenlos und ohne Einschränkungen! Jetzt herunterladen.
Führen Sie nach der Installation von Kutools für Excel die folgenden Schritte aus:
1. Wählen Sie den Bereich aus, auf dessen Grundlage Sie Arbeitsblätter erstellen möchten.
2.Klicken Sie auf KUTOOLS PLUS>Arbeitsblatt>Sequenzarbeitsblätter erstellen, siehe Screenshot:
3. Wählen Sie im Dialogfeld Sequenzarbeitsblätter erstellen den gewünschten Arbeitsblatttyp für die neuen sequenziellen Arbeitsblätter aus und aktivieren Sie die Option Daten innerhalb der Auswahl. Siehe Screenshot:
4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen. Es wurde ein neues Arbeitsblatt erstellt, dessen Arbeitsblätter entsprechend den ausgewählten Bereichsdaten benannt sind. Siehe Screenshot:
Hinweise:
1. Wenn Sie „Tabelle 1“ oder „Tabelle 2“ auswählen, wird das erstellte neue Arbeitsblatt im jeweiligen Format von „Tabelle 1“ bzw. „Tabelle 2“ gestaltet.
2. Die erstellten neuen Arbeitsblätter befinden sich in einem neuen Arbeitsblatt.
3. Wenn der ausgewählte Bereich leere Zellen enthält, werden die Arbeitsblätter standardmäßig benannt. Siehe Screenshots:
 |
|
 |
Klicken Sie hier, um mehr über die Funktion zum Erstellen dieser Sequenzarbeitsblätter zu erfahren.
Verwandter Artikel:
Wie fügt man in Excel ein neues Arbeitsblatt mit einem benutzerdefinierten Namen hinzu?
Beste Office-Produktivitätstools
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 zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins