Wie erstellt man Sequenzarbeitsblätter aus einem Zellbereich in Excel?

Wenn Sie einen Datenbereich in Ihrem Arbeitsblatt haben und nun möchten, dass auf Basis der Zelldaten eine Reihe von Arbeitsblättern erstellt wird, sehen Sie den folgenden Screenshot. Natürlich können Sie die Namen der Arbeitsblätter manuell einzeln bearbeiten, aber wenn mehrere Arbeitsblattnamen bearbeitet werden müssen, ist diese Methode mühsam und zeitaufwendig. Hier werde ich über einige schnelle Tricks sprechen, die Ihnen helfen.

Sequenzarbeitsblätter aus einer Liste von Zellen mit VBA-Code erstellen

Sequenzarbeitsblätter aus einer Liste von Zellen mit Kutools für Excel erstellen

Sequenzarbeitsblätter aus einer Liste von Zellen mit VBA-Code erstellen

Der folgende VBA-Code kann Ihnen helfen, einige Arbeitsblätter hinzuzufügen, die nach den Zellinhalten benannt sind und nach bestehenden Arbeitsblättern eingefügt werden. Bitte gehen Sie wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, dann öffnet sich das Fenster Microsoft Visual Basic for Applications.

2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Sequenzarbeitsblätter 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 dann die F5-Taste, um diesen Code auszuführen, und es wird ein Eingabeaufforderungsfenster geöffnet, in dem Sie den Bereich auswählen können, den Sie verwenden möchten. Siehe Screenshot:

4. Klicken Sie anschließend auf OK, und die Arbeitsblätter, die nach den Zellwerten benannt sind, wurden nach dem vorhandenen Arbeitsblatt hinzugefügt. Siehe Screenshot:

Hinweise:

1. Die neuen Arbeitsblätter werden 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 aus einer Liste von Zellen mit Kutools für Excel erstellen

Hier möchte ich ein praktisches Tool vorstellen - Kutools für Excel. Mit seiner Funktion „Sequenzarbeitsblätter erstellen“ können Sie schnell Arbeitsblätter mit Monatsnamen, Wochentagen, benutzerdefinierten Listen usw. erstellen.

Kutools für Excel umfasst mehr als 300 praktische Excel-Tools. Kostenlos 30 Tage lang ohne Einschränkungen testen. Jetzt herunterladen.

Nach der Installation von Kutools für Excel gehen Sie bitte wie folgt vor:

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 Typ des Arbeitsblatts aus, den Sie für die Erstellung der neuen Sequenzarbeitsblätter verwenden möchten, und aktivieren Sie dann die Option Daten innerhalb der Auswahl, siehe Screenshot:

4. Klicken Sie dann auf OK, um das Dialogfeld zu schließen, und es wurde eine neue Arbeitsmappe erstellt, die die nach den ausgewählten Bereichsdaten benannten Arbeitsblätter enthält. Siehe Screenshot:

Hinweise:

1. Wenn Sie Blatt 1 oder Blatt 2 auswählen, werden die neuen Arbeitsblätter im selben Format wie Blatt 1 oder Blatt 2 erstellt.

2. Die neuen Arbeitsblätter werden in einer neuen Arbeitsmappe erstellt.

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 diese Funktion „Sequenzarbeitsblätter erstellen“ zu erfahren.

Verwandter Artikel:

Wie fügt man in Excel neue Arbeitsblätter mit angepassten Namen hinzu?