Wie kann man eine große Excel-Tabelle in mehrere kleinere Tabellen aufteilen?
Wenn Sie eine große Excel-Tabelle mit mehreren Spalten und Hunderten oder sogar Tausenden von Zeilen haben, möchten Sie diese möglicherweise in kleinere, übersichtlichere Tabellen aufteilen – etwa nach Werten einer bestimmten Spalte oder in Abschnitte mit einer festgelegten Zeilenanzahl. Dieses Tutorial zeigt Ihnen Schritt für Schritt, wie Sie diese Aufgabe effizient meistern.
| Haupttabelle | Tabelle anhand von Spaltenwerten in mehrere Tabellen aufteilen | Tabelle anhand der Zeilenanzahl in mehrere Tabellen aufteilen | |
 |  |  |  |
Eine große Tabelle mithilfe von VBA-Code anhand von Spaltenwerten in mehrere Tabellen aufteilen
Eine große Tabelle mithilfe von VBA-Code anhand von Spaltenwerten in mehrere Tabellen aufteilen
Um diese große Tabelle anhand eines Spaltenwerts in mehrere Tabellen aufzuteilen, hilft Ihnen der folgende VBA-Code. Gehen Sie dazu wie folgt vor:
1. Halten Sie die Tasten „ALT“ + „F11“ 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: Eine große Tabelle anhand von Schlüsselspalte in mehrere Tabellen aufteilen:
Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub
3. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste „F5“, um ihn auszuführen. Es erscheint ein Eingabefeld – bitte wählen Sie die Kopfzeile Ihrer Daten aus (siehe Screenshot):
4. Klicken Sie dann auf „OK“. Es erscheint ein weiteres Dialogfeld. Wählen Sie bitte die Spaltendaten aus, nach denen die Tabelle aufgeteilt werden soll (siehe Screenshot):
5. Klicken Sie auf „OK“. Die große Tabelle wurde nun anhand der Spaltenwerte in mehrere Arbeitsblätter aufgeteilt, wobei sich die neuen Arbeitsblätter hinter dem Hauptblatt befinden. Die neuen Arbeitsblätter tragen als Namen jeweils den entsprechenden Spaltenwert (siehe Screenshot):
Eine große Tabelle mithilfe von VBA-Code anhand einer bestimmten Zeilenanzahl in mehrere Tabellen aufteilen
Wenn Sie die Tabelle basierend auf der Anzahl der Zeilen in mehrere Tabellen aufteilen möchten, unterstützt Sie der folgende VBA-Code.
1. Drücken Sie gleichzeitig die Tasten „ALT“ + „F11“, 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: Eine große Tabelle anhand der Zeilenanzahl in mehrere Tabellen 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 anschließend die Taste „F5“. Wählen Sie im erscheinenden Dialogfeld die gewünschte Kopfzeile aus (siehe Screenshot):
4. Klicken Sie anschließend auf „OK“. Wählen Sie im zweiten Eingabefeld den Datenbereich, nach dem die Aufteilung erfolgen soll (siehe Screenshot):
5. Klicken Sie danach erneut auf „OK“. Geben Sie im dritten Eingabefeld die gewünschte Anzahl der Zeilen für die Aufteilung ein (siehe Screenshot):
6. Klicken Sie anschließend auf „OK“. Die Haupttabelle wurde nun entsprechend der angegebenen Zeilenanzahl in mehrere Arbeitsblätter aufgeteilt (siehe Screenshot unten):
Eine große Tabelle anhand von Spaltenwerten oder Zeilenanzahl mit Kutools für Excel in mehrere Tabellen aufteilen
Die oben genannten Codes könnten für die meisten Anwender eine Herausforderung darstellen. Deshalb stelle ich Ihnen hier eine hervorragende Funktion vor: „Daten aufteilen“ aus „Kutools für Excel“. Mit diesem praktischen Tool teilen Sie große Tabellen im Handumdrehen anhand einer Schlüsselspalte oder einer festgelegten Zeilenanzahl in mehrere übersichtliche Tabellen auf.
1. Wählen Sie den Datenbereich aus, den Sie aufteilen möchten, und klicken Sie anschließend auf „KUTOOLS PLUS“ > „Daten aufteilen“ (siehe Screenshot):
2. Geben Sie im Dialogfeld „Daten in mehrere Arbeitsblätter aufteilen“ Ihre gewünschten Einstellungen an:
(1.) Wählen Sie im Abschnitt „Aufteilungsgrundlage“ je nach Bedarf „Spalte angeben“ oder „Fester Wert“ aus;
(2.) Geben Sie im Dropdown-Menü „Regeln“ den Namen der erstellten Arbeitsblätter an, und fügen Sie bei Bedarf ein Präfix oder Suffix zum Arbeitsblattnamen hinzu.
3. Klicken Sie dann auf „OK“. Die große Tabelle wurde nun in mehrere kleinere Tabellen auf einem neuen Arbeitsblatt aufgeteilt (siehe Screenshots):
| Tabelle anhand von Spaltenwerten in mehrere Tabellen aufteilen | Tabelle anhand der Zeilenanzahl in mehrere Tabellen aufteilen |
 |  |
Kutools für Excel– Erweitern Sie Excel mit über 300 unverzichtbaren Tools, um Ihre Arbeit schneller und einfacher zu erledigen, und nutzen Sie KI-Funktionen für intelligentere Datenverarbeitung und höhere Produktivität.Jetzt herunterladen
Weitere verwandte Artikel:
- Eine Arbeitsmappe in separate Excel-Dateien in Excel aufteilen
- Möglicherweise müssen Sie eine große Arbeitsmappe in separate Excel-Dateien aufteilen, indem jedes Arbeitsblatt der Arbeitsmappe als einzelne Excel-Datei gespeichert wird. Beispielsweise können Sie eine Arbeitsmappe in mehrere einzelne Excel-Dateien aufteilen und jede Datei anschließend einer anderen Person zur Bearbeitung übergeben. Auf diese Weise können bestimmte Personen gezielt mit spezifischen Daten arbeiten und Ihre Daten bleiben sicher. Dieser Artikel stellt Methoden vor, um eine große Arbeitsmappe basierend auf den einzelnen Arbeitsblättern in separate Excel-Dateien aufzuteilen.
- Vollständiger Name in erste und Nachname in Excel aufteilen
- Angenommen, Sie verfügen über eine Namensliste wie im ersten Screenshot unten in einer einzigen Spalte und müssen die Vollständiger Name in die Vorname-Spalte, Zweiter Vorname-Spalte und Nachname-Spalte wie im folgenden Screenshot gezeigt aufteilen. Hier finden Sie einige effiziente Methoden, um dieses Problem zu lösen.
- Eine lange Spalte in mehrere Spalten in Excel aufteilen
- Lange Spaltendaten in Excel können die Übersichtlichkeit beeinträchtigen – doch sobald Sie diese Liste auf mehrere Spalten aufteilen, wird alles deutlich klarer und übersichtlicher.
- Wörter oder Zahlen in separate Zellen in Excel aufteilen
- Wenn Sie eine Liste mit Zahlen oder Wörtern in einem Arbeitsblatt haben und den Zellinhalt nun – wie im folgenden Screenshot gezeigt – auf einzelne Buchstaben aufteilen möchten, sodass jeder Buchstabe in einer separaten Zelle steht, wie können Sie diese Aufgabe in Excel bewältigen?
- Eine lange Liste in gleiche Gruppen in Excel aufteilen
- Wenn Sie eine lange Datenliste haben, die – wie im folgenden Screenshot gezeigt – in mehrere gleich große Gruppen aufgeteilt werden soll, wie können Sie diese Aufgabe in Excel schnell und einfach erledigen?
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