Daten in mehrere Arbeitsblätter aufteilen nach Zeilenanzahl in Excel
Ein großes Datenbereich effizient in mehrere Excel-Arbeitsblätter basierend auf einer bestimmten Zeilenanzahl aufzuteilen, kann die Datenverwaltung erheblich vereinfachen. Beispielsweise wird ein Datensatz übersichtlicher und besser organisiert, wenn er alle 5 Zeilen in separate Blätter aufgeteilt wird. Diese Anleitung bietet zwei praktische Methoden, um diese Aufgabe schnell und einfach durchzuführen.
Daten in mehrere Arbeitsblätter aufteilen nach Zeilenanzahl mit VBA-Code
Daten in mehrere Arbeitsblätter aufteilen nach Zeilenanzahl mit Kutools für Excel
Daten in mehrere Arbeitsblätter aufteilen nach Zeilenanzahl mit VBA-Code
Der folgende VBA-Code unterstützt Sie dabei, Zeilen basierend auf einer festgelegten Anzahl auf mehrere Arbeitsblätter aufzuteilen. 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: Daten aufteilen 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 anschließend die Taste F5. Wählen Sie im erscheinenden Dialogfeld die Überschriftenzeile aus (siehe Screenshot):
4. Klicken Sie dann auf OK, und wählen Sie im zweiten Dialogfeld den Datenbereich aus, nach dem die Aufteilung erfolgen soll (siehe Screenshot):
5. Klicken Sie erneut auf die Schaltfläche OK. Geben Sie im dritten Dialogfeld die Anzahl der Zeilen ein, nach der geteilt werden soll (siehe Screenshot):
6. Klicken Sie anschließend auf die Schaltfläche OK. Die Daten wurden nun basierend auf der angegebenen Zeilenanzahl in mehrere Arbeitsblätter aufgeteilt (siehe Screenshot):
Daten in mehrere Arbeitsblätter aufteilen nach Zeilenanzahl mit Kutools für Excel
Falls Ihnen der VBA-Code zu komplex erscheint, bietet Kutools für Excel eine schnelle und intuitive Lösung, um die Aufteilung von Daten effizient zu bewältigen. Die Funktion Daten aufteilen vereinfacht den gesamten Prozess und ermöglicht Anwendern jeglicher Erfahrungsstufe, große Datensätze problemlos in mehrere Arbeitsblätter aufzuteilen – ohne fundierte Programmierkenntnisse zu benötigen – und so die Datenverwaltung optimal zu gestalten.
Falls Sie bereits Kutools für Excelinstalliert haben, gehen Sie wie folgt vor:
1. Wählen Sie den Datenbereich aus, den Sie aufteilen möchten, und klicken Sie anschließend auf KUTOOLS PLUS > Daten aufteilen (siehe Screenshot):
3. Im Dialogfeld Daten in mehrere Arbeitsblätter aufteilen:
- Wählen Sie in der Aufteilungsgrundlage die Option Fester Wert aus, und geben Sie die Anzahl der Zeilen ein, nach der jede Arbeitsmappe aufgeteilt werden soll.
- Wenn Ihre Daten Überschriften enthalten und Sie diese in jedes neue Arbeitsblatt einfügen möchten, aktivieren Sie bitte die Titel einschließen-Option. ()Tipp: Geben Sie die Anzahl der Überschriftenzeilen entsprechend Ihren Daten an.)
- Anschließend können Sie den Namen für das aufgeteilte Arbeitsblatt festlegen. Wählen Sie im Abschnitt Name der erstellten Arbeitsblätter die gewünschten Regeln aus der Dropdown-Liste „Regeln“ aus. Außerdem können Sie ein Präfix oder ein Suffix für die Arbeitsblattnamen hinzufügen.
4. Nachdem Sie die Einstellungen vorgenommen haben, klicken Sie auf OK. Die ausgewählten Daten wurden nun in mehrere neue Arbeitsblätter aufgeteilt – jeweils nach 5 Zeilen – und die Überschriften wurden in jedes neue Arbeitsblatt eingefügt. Siehe Screenshot:
Verwandte Artikel:
- basierend auf Spalte
- Angenommen, Sie haben ein Arbeitsblatt mit einer großen Anzahl von Datensätzen und möchten diese nun basierend auf der Namensspalte in mehrere Arbeitsblätter aufteilen (siehe folgenden Screenshot) – wobei die Namen zufällig eingegeben wurden. Zunächst könnten Sie die Daten sortieren und anschließend manuell jeweils in ein neues Arbeitsblatt kopieren und einfügen. Doch dieser Ansatz erfordert viel Geduld durch das wiederholte Kopieren und Einfügen. In diesem Artikel zeige ich Ihnen einige schnelle Methoden, um diese Aufgabe effizient zu erledigen.
- Doppelte Zeile kombinieren und Werte in Excel summieren
- In Excel enthalten Datensätze häufig doppelte Einträge. Die Herausforderung besteht oft darin, diese doppelten Zeilen effizient zusammenzuführen und gleichzeitig die Werte in einer zugehörigen Spalte zu summieren – wie im folgenden Screenshot veranschaulicht. Im Folgenden stellen wir mehrere praktische Methoden vor, mit denen Sie doppelte Daten zusammenführen und deren zugehörige Werte aggregieren können, um die Übersichtlichkeit und Nützlichkeit Ihrer Excel-Arbeitsmappe zu steigern.
- Zwei oder mehr Tabellen basierend auf Schlüsselspalte zu einer zusammenführen
- Angenommen, Sie haben drei Tabellen in einer Arbeitsmappe und möchten diese zu einer einzigen Tabelle zusammenführen, indem Sie die entsprechenden Schlüsselspalten abgleichen – so wie im folgenden Screenshot dargestellt. Für viele mag das eine mühsame Aufgabe sein, doch keine Sorge: In diesem Artikel stelle ich Ihnen einige effiziente Methoden vor, um genau dieses Problem zu lösen.
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