Daten in mehrere Arbeitsblätter nach Zeilenanzahl aufteilen in Excel

Das effiziente Aufteilen eines großen Datenbereichs in mehrere Excel-Arbeitsblätter basierend auf einer bestimmten Zeilenanzahl kann die Datenverwaltung erheblich erleichtern. Zum Beispiel kann das Aufteilen eines Datensatzes alle 5 Zeilen in mehrere Blätter die Verwaltung und Organisation vereinfachen. Dieser Leitfaden bietet zwei praktische Methoden, um diese Aufgabe schnell und einfach zu erledigen.

Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit VBA-Code aufteilen

Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit Kutools für Excel aufteilen

Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit VBA-Code aufteilen

Der folgende VBA-Code kann Ihnen helfen, die Zeilen in mehrere Arbeitsblätter nach Zeilenanzahl aufzuteilen. Gehen Sie wie folgt vor:

1. Halten Sie die Tastenkombination ALT + F11 gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

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

VBA: Daten in Arbeitsblätter nach Zeilenanzahl in Excel aufteilen

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. Drücken Sie dann die F5-Taste. Im erscheinenden Dialogfeld wählen Sie die Kopfzeile aus, siehe Screenshot:

4. Klicken Sie auf OK, und im zweiten Eingabefeld wählen Sie den Datenbereich aus, den Sie nach Zeilenanzahl aufteilen möchten, siehe Screenshot:

5. Klicken Sie weiter auf die Schaltfläche OK, im dritten Eingabefeld geben Sie die Anzahl der Zeilen ein, nach denen Sie aufteilen möchten, siehe Screenshot:

6. Klicken Sie dann auf die Schaltfläche OK, die Daten wurden basierend auf der Anzahl der Zeilen in mehrere Arbeitsblätter aufgeteilt, siehe Screenshot:

Daten in mehrere Arbeitsblätter nach Zeilenanzahl mit Kutools für Excel aufteilen

Wenn Sie den VBA-Code kompliziert finden, bietet Kutools für Excel eine schnelle und intuitive Lösung, um das Problem des Aufteilens von Daten effizient zu lösen. Diese Funktion „Daten aufteilen“ vereinfacht den Vorgang, sodass Benutzer jeglicher Qualifikationsstufe große Datensätze problemlos in mehrere Arbeitsblätter aufteilen können, ohne tiefgehende Programmierkenntnisse zu benötigen, was die effektive Datenverwaltung erleichtert.

Wenn Sie Kutools für Excel installiert haben, gehen Sie wie folgt vor:

1. Wählen Sie den Datenbereich aus, den Sie aufteilen möchten. Klicken Sie dann auf Kutools Plus > Daten aufteilen, siehe Screenshot:

3. Im Dialogfeld „Daten in mehrere Arbeitsblätter aufteilen“:

• Wählen Sie Fester Wert aus der Option Aufteilungsgrundlage und geben Sie die Anzahl der Zeilen ein, nach denen Sie für jedes Arbeitsblatt aufteilen möchten.
• Wenn Ihre Daten Überschriften enthalten und Sie diese in jedes neue geteilte Arbeitsblatt einfügen möchten, aktivieren Sie bitte die Option Daten enthält Überschriften. (Tipp: Sie können die Anzahl der Kopfzeilen je nach Ihren Daten eingeben.)
• Anschließend können Sie die Namen der geteilten Arbeitsblätter festlegen. Wählen Sie unter dem Abschnitt Name der erstellten Arbeitsblätter die Regeln für die Arbeitsblattnamen aus der Dropdown-Liste Regel aus. Sie können auch Präfix oder Suffix für die Blattnamen hinzufügen.

4. Nachdem Sie die Einstellungen vorgenommen haben, klicken Sie auf OK, und die ausgewählten Daten wurden basierend auf jeweils 5 Zeilen in mehrere Arbeitsblätter eines neuen Arbeitsbuchs aufgeteilt. Die Überschriften wurden in jedes neue Arbeitsblatt eingefügt. Siehe Screenshot:

Verwandte Artikel: