Wie erstellt man in Excel für jede Zeile ein neues Arbeitsblatt?
Bei Datenverwaltungs- oder Berichtsaufgaben müssen Sie gelegentlich jeden Datensatz einer Tabelle in ein eigenes Arbeitsblatt auslagern. Stellen Sie sich beispielsweise eine Schülerliste in Excel vor, bei der jede Zeile die Daten eines einzelnen Schülers enthält – möglicherweise möchten Sie für jeden Schüler ein separates Arbeitsblatt mit seinen spezifischen Informationen erstellen. Alternativ könnte Ihr Ziel auch einfach sein, jede Zeile – unabhängig vom Inhalt – auf ein eigenes neues Arbeitsblatt zu verteilen. Das manuelle Erstellen und Kopieren dieser Daten ist jedoch zeitaufwendig und fehleranfällig, besonders bei umfangreichen Datensätzen. Mit Automatisierung sparen Sie nicht nur wertvolle Zeit, sondern minimieren auch das Risiko menschlicher Fehler. Diese Anleitung stellt Ihnen zwei praxiserprobte Lösungen vor, um für jede Zeile in Excel automatisch ein neues Arbeitsblatt zu generieren, und erläutert jeweils Vor- und Nachteile – so finden Sie den idealen Ansatz für Ihr konkretes Szenario.
Erstellen Sie neue Blätter für jede Zeile mithilfe von VBA-Code
Erstellen Sie neue Blätter für jede Zeile mit dem Daten aufteilen-Tool von Kutools für Excel
Erstellen Sie neue Blätter für jede Zeile mithilfe von VBA-Code
Die Verwendung von VBA (Visual Basic for Applications) ist eine effektive Methode, um Excel-Aufgaben zu automatisieren, die andernfalls mühsam und repetitiv wären. Mit VBA können Sie im Handumdrehen ein neues Arbeitsblatt für jede Zeile Ihrer Daten erstellen – entweder durch Gruppierung der Zeilen basierend auf einer Spalte (z. B. Schülername) oder durch Erstellung eines separaten Blatts für jede einzelne Zeile, unabhängig vom Inhalt. Dieser Ansatz eignet sich ideal für Benutzer, die mit dem VBA-Editor vertraut sind und eine hochgradig anpassbare Lösung bevorzugen. Allerdings erfordert er das Bearbeiten und Ausführen von Code und ist daher möglicherweise ungeeignet für Anwender ohne VBA-Erfahrung oder ohne Berechtigung zum Ausführen von Makros in ihrer Umgebung.
1. Drücken Sie „Alt“ + „F11“, um das Microsoft Visual Basic for Applications-Fenster zu öffnen, über das Sie auf VBA-Code zur Automatisierung von Excel-Vorgängen zugreifen können.
2. Klicken Sie im Microsoft Visual Basic for Applications-Fenster auf Einfügen > Modul, um ein neues Code-Modul hinzuzufügen. Kopieren Sie anschließend den folgenden Code in das Modulfenster.
VBA-Code: Neues Blatt für jede Zeile basierend auf einer Spalte erstellen
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End SubParametererklärung und Nutzungstipps:
- A1:C1 ist der Kopfzeilenbereich Ihrer Datentabelle. Passen Sie diesen Bereichsbezug bei Bedarf an Ihren tatsächlichen Datenkopfbereich an.
- Der Code extrahiert eindeutige Werte aus der angegebenen Spalte (standardmäßig Spalte A) und erstellt für jeden ein eigenes Arbeitsblatt mit den zugehörigen Zeilen.
- Wenn Ihre Tabelle breiter ist oder in einer anderen Zeile beginnt, passen Sie
xTitleund die Zellbezüge entsprechend an. - Wenn Ihr Arbeitsblatt Formeln enthält, die auf andere Blätter verweisen, überprüfen Sie diese Bezüge unbedingt nach dem Aufteilen.
3. Drücken Sie die F5-Taste oder klicken Sie auf Ausführen, um den Code auszuführen. Nach der Ausführung wird ein neues Arbeitsblatt nach allen vorhandenen Blättern in der aktuellen Arbeitsmappe erstellt – jeweils benannt nach dem gewählten eindeutigen Spaltenwert. Ein Beispielergebnis finden Sie im folgenden Screenshot:
Wenn Sie stattdessen jede Zeile unabhängig vom Inhalt der Spalten in ein eigenes Arbeitsblatt aufteilen möchten, können Sie den folgenden alternativen VBA-Code verwenden – so entfällt die Notwendigkeit, eine Spaltenbedingung anzugeben.
VBA-Code: Direktes Erstellen eines neuen Blatts für jede Zeile
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End SubNach Ausführung dieses Codes im Modul wird jede Zeile des aktiven Arbeitsblatts – einschließlich der Kopfzeile – in ein neu erstelltes Arbeitsblatt kopiert. Beachten Sie, dass die Kopfzeile dabei ebenfalls dupliziert wird; sollten Sie dies vermeiden wollen, müssen Sie die entsprechenden Inhalte anschließend manuell löschen oder anpassen.
Fehlerbehebung und praktische Tipps:
– Sollten Sie eine Fehlermeldung wie „Index außerhalb des gültigen Bereichs“ erhalten, stellen Sie sicher, dass Ihre Blattnamen keine ungültigen Zeichen enthalten und dass keine doppelten Namen vorhanden sind.
– Große Datensätze können zu einer Vielzahl von Arbeitsblättern führen, was Excel verlangsamen oder die Navigation erschweren kann. Prüfen Sie daher, ob eine zeilenweise Aufteilung bei sehr großen Tabellen wirklich notwendig ist.
– Erstellen Sie stets eine Sicherungskopie Ihrer Daten, bevor Sie VBA-Code ausführen, um unbeabsichtigten Datenverlust zu vermeiden.
Vorteile: Kostenlos; hochgradig anpassbar.
Nachteile: Erfordert aktiviertes VBA/Makros und grundlegende Kenntnisse des VBA-Editors; potenzielles Risiko von Code-Fehlern bei komplexen oder ungewöhnlichen Daten.
Geeignet für: Anwender, die maximale Flexibilität durch Skripterstellung benötigen – ideal für einmalige oder unregelmäßige Aufgaben.
Erstellen Sie neue Blätter für jede Zeile mit dem Daten aufteilen-Tool von Kutools für Excel
Wenn Sie einen einfachen, benutzerfreundlichen Ansatz ohne Programmierung bevorzugen, empfiehlt sich das Daten aufteilen-Tool von Kutools für Excel besonders. Diese Funktion ermöglicht es Ihnen, Daten mit nur wenigen Klicks schnell in ein neues Arbeitsblatt aufzuteilen und vereinfacht so die Arbeitsblattverwaltung erheblich. Kutools ist besonders nützlich für Benutzer, die regelmäßig große, komplexe Tabellen bearbeiten oder grafische Oberflächen gegenüber manueller Programmierung bevorzugen. Beachten Sie, dass Kutools ein Excel-Add-in ist und vorab installiert werden muss.
1. Markieren Sie die Tabelle mit den Daten, die Sie in einzelne Arbeitsblätter aufteilen möchten. Klicken Sie dann auf die Registerkarte KUTOOLS PLUS und wählen Sie Daten aufteilen. Zur Verdeutlichung sehen Sie im folgenden Screenshot:
2. Wählen Sie im Dialogfeld Daten in mehrere Arbeitsblätter aufteilen die passenden Einstellungen entsprechend Ihren Anforderungen zur Aufteilung aus.
A. Neue Blätter basierend auf Spaltenwerten erstellen:
B. Direkt neue Blätter für jede Zeile erstellen:
Nach der Ausführung wird ein neues Arbeitsblatt generiert, das alle neuen Arbeitsblätter enthält – jeweils entsprechend Ihrer gewählten Einstellungen befüllt.
Neue Blätter für jede Zeile basierend auf Spaltenwerten erstellen:
Neues Blatt für jede Zeile ohne Berücksichtigung von Spaltenwerten erstellen:
Hinweise und praktische Tipps:
– Stellen Sie vor der Verwendung des „Daten aufteilen“-Tools sicher, dass Ihre Tabelle keine leeren Zeilen enthält, da diese zu leeren Blättern führen können.
– Überprüfen Sie die Namenskonventionen für Blätter, um doppelte oder ungültige Arbeitsblattnamen zu vermeiden; Kutools passt Namen automatisch an, falls Namenskonflikte auftreten.
– Der Vorgang kann bei sehr großen Tabellen eine hohe Anzahl an Arbeitsblättern erzeugen – berücksichtigen Sie dies vorab.
Vorteile: Einfach zu bedienen – keine Programmierkenntnisse erforderlich; ideal für die Batch-Verarbeitung und wiederkehrende Aufgaben.
Nachteile: Erfordert die Installation des Kutools-Add-ins.
Geeignet für: Alle Excel-Nutzer, insbesondere solche, die regelmäßig mit wiederkehrender Datensegmentierung arbeiten.
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
Demo: Neue Blätter für jede Zeile mit dem Daten aufteilen-Tool von Kutools für Excel erstellen
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