Wie fügt man in Excel in regelmäßigen Abständen eine bestimmte Anzahl von Zeilen ein?
In einem Excel-Arbeitsblatt können Sie mithilfe der integrierten Funktion „Einfügen“ manuell leere Zeilen zwischen vorhandene Zeilen einfügen. Bei großen Datenmengen oder wenn Sie regelmäßig – beispielsweise alle drei oder n-te Zeile – zwei leere Zeilen einfügen müssen, wird diese Aufgabe jedoch zeitaufwendig und ineffizient. Das automatisierte Einfügen leerer Zeilen in festen Abständen spart nicht nur Zeit, sondern minimiert auch Fehler und optimiert Ihren Arbeitsablauf. Die folgenden Methoden zeigen Ihnen, wie Sie diese Aufgabe schnell und bequem erledigen – inklusive Lösungen zum Einfügen leerer Zeilen basierend auf bestimmten Kriterien oder zum Wiederholen von Zeilen, sowohl mit als auch ohne VBA.
➤ Bestimmte Anzahl von Leere Zeilen in Datenbereich in festen Abständen mit VBA-Code einfügen
➤ Bestimmte Anzahl von Leere Zeilen in Datenbereich basierend auf Zellenwerten mit VBA-Code einfügen
➤ Bestimmte Anzahl von Leere Zeilen in Datenbereich in festen Abständen mit einer praktischen Funktion einfügen
➤ Bestimmte Anzahl von Leere Zeilen in festen Abständen mit Excel-Formeln einfügen
➤ Zeilen kopieren und einfügen mehrfach basierend auf bestimmten Zahlen mit VBA-Code
➤ Zeilen kopieren und einfügen mehrfach basierend auf bestimmten Zahlen mit einer beeindruckenden Funktion
Bestimmte Anzahl von Leere Zeilen in Datenbereich in festen Abständen mithilfe von VBA-Code einfügen
Der folgende VBA-Code unterstützt Sie dabei, automatisch eine bestimmte Anzahl leerer Zeilen nach jeder n-ten Zeile innerhalb Ihres bestehenden Datenbereichs einzufügen. Diese Lösung eignet sich ideal für Benutzer, die mit Makros vertraut sind und mittlere bis große Datensätze effizient bearbeiten möchten. Gehen Sie dazu wie folgt vor:
1. Halten Sie in Excel die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Bestimmte Anzahl von Zeilen in Daten in festen Abständen einfügen
Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Next
End Sub
3.Nachdem Sie diesen Code eingefügt haben, drücken Sie F5, um ihn auszuführen. Es erscheint ein Eingabefenster, das Sie auffordert, den Datenbereich auszuwählen, in den Sie leere Zeilen einfügen möchten, wie unten gezeigt:
4. Klicken Sie auf OK. Es erscheint ein weiteres Eingabefenster, in dem Sie das gewünschte Zeilenintervall eingeben – beispielsweise 3, um leere Zeilen nach jeder dritten Zeile einzufügen:
5. Klicken Sie anschließend auf OK und geben Sie die Anzahl der leeren Zeilen ein, die eingefügt werden sollen, sobald das Programm danach fragt (z. B. 2, um zwei Zeilen einzufügen):
6. Nach Bestätigung Ihrer Auswahl werden leere Zeilen in Ihre Daten in den definierten Abständen eingefügt. Vergleichen Sie die Situation vorher und nachher unten:
 |  |  |
Tipps & Hinweise:
- Dieses Makro ermöglicht es Ihnen, Ihren Datenbereich flexibel auszuwählen und sowohl das Zeilenintervall als auch die Anzahl der einzufügenden leeren Zeilen festzulegen.
- Sichern Sie Ihr Arbeitsblatt oder testen Sie die Funktion zunächst an einem Beispielfeld, da das Einfügen von Zeilen irreversibel ist – es sei denn, Sie nutzen sofort den Befehl „Rückgängig“.
Fehlerbehebung: Sollte ein Fehler auftreten, stellen Sie sicher, dass Ihre Daten nicht gefiltert sind und dass keine Tabellen den markierten Bereich überlappen. Tritt ein unerwartetes Ergebnis auf, nutzen Sie sofort die Rückgängig-Funktion, um Ihre Änderungen rückgängig zu machen.
Bestimmte Anzahl von Leere Zeilen in Datenbereich basierend auf Zellwerten mithilfe von VBA-Code einfügen
Manchmal erfordert Ihr Arbeitsablauf das Einfügen leerer Zeilen basierend auf einer vordefinierten Liste von Zellwerten – beispielsweise das Einfügen einer Leerzeile nach jedem Datensatz, sobald bestimmte Übereinstimmungskriterien erfüllt sind. Diese VBA-Lösung ist ideal, wenn die Einfügelogik nicht auf festen Abständen beruht, sondern auf den Werten einer benachbarten Spalte.
✅ Wann verwenden:
- Empfohlen, wenn Ihre Daten nach Kategorien wie Abteilungen, Projektphasen oder Vertriebsmitarbeitern organisiert sind und Sie zwischen den Gruppen Abstand oder leere Zeilen einfügen möchten.
- Stellen Sie sicher, dass Ihre Auswahl korrekt ist, denn das Makro nutzt die markierten Zellen, um zu ermitteln, wo Zeilen eingefügt werden sollen.
1. Halten Sie in Excel die Tasten ALT + F11gedrückt, um das Fenster Microsoft Visual Basic für Applikationenzu öffnen.
2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Bestimmte Anzahl von Leere Zeilen basierend auf einer Zahlenliste einfügen:
Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub
3. Drücken Sie nach dem Einfügen F5, um den Code auszuführen. Wählen Sie im erscheinenden Dialogfeld die Zahlenliste (oder die entsprechenden Zellen) aus, anhand derer leere Zeilen eingefügt werden sollen.
4. Klicken Sie anschließend auf OK, und Sie sehen das gewünschte Ergebnis, wie in den folgenden Screenshots dargestellt:
 | |  |
Fehlerhinweis: Enthält die Referenzliste leere Zellen oder nicht-numerische Daten, überprüfen Sie die Code-Logik oder bereinigen Sie Ihre Daten, bevor Sie dieses Makro ausführen.
Bestimmte Anzahl von Leere Zeilen in Datenbereich in festen Abständen mit einer praktischen Funktion einfügen
Falls Sie VBA nicht verwenden möchten oder eine visuellere und interaktivere Methode bevorzugen, bietet Kutools für Excel eine spezielle Leere Zeilen/Spalten einfügen-Funktion. Mit nur wenigen Klicks fügen Sie leere Zeilen oder Spalten in beliebigen, festgelegten Abständen in Ihren Datenbereich ein – und steigern so Ihre Produktivität erheblich, besonders bei sich wiederholenden Berichts- oder Formatierungsaufgaben.
Nach der Installation von Kutools für Excelführen Sie folgende Schritte aus:
1. Wählen Sie den Datenbereich aus, in den in regelmäßigen Abständen leere Zeilen eingefügt werden sollen.
2. Wechseln Sie zu Kutools > Einfügen > Leere Zeilen/Spalten einfügen, wie unten gezeigt:
3. Wählen Sie im Dialogfeld Zeilen & Spalten einfügen unter Leere Zeilen die Option Einfügetyp aus und geben Sie sowohl das Intervall als auch die Anzahl der einzufügenden leeren Zeilen an, wie in der Abbildung dargestellt:
Hinweis: Die Einstellung ist flexibel. Wenn Sie zwei leere Zeilen nach jeweils vier Datenzeilen benötigen, stellen Sie das Intervall auf 4 und die Anzahl der leeren Zeilen auf 2 ein.
4. Klicken Sie anschließend auf die Schaltfläche OK. Die leeren Zeilen werden innerhalb des ausgewählten Bereichs im von Ihnen angegebenen Intervall eingefügt, wie unten veranschaulicht:
| | |
Vorteile: Diese Lösung ist benutzerfreundlich, erfordert keine Programmierkenntnisse und eignet sich ideal für Anwender, die häufig die Struktur von Zeilen oder Spalten anpassen müssen.
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Bestimmte Anzahl von Leere Zeilen in festen Abständen mithilfe von Excel-Formeln einfügen
Falls Sie keine Makros oder Add-Ins verwenden können, erreichen Sie das Ziel – das Einfügen leerer Zeilen in festen Abständen – dennoch mithilfe von Hilfsspalten und integrierten Excel-Funktionen wie REST und ZEILE. Diese Methode eignet sich besonders dann, wenn Skripterstellung eingeschränkt ist, aber grundlegende Formeln und Sortierfunktionen zur Verfügung stehen.
✅ Wann verwenden: Ideal für Benutzer, die Arbeitsmappen ohne Makros nutzen möchten, maximale Kompatibilität benötigen oder Daten für Import-/Export-Workflows vorbereiten, bei denen eine visuelle Trennung durch leere Zeilen erforderlich ist.
⚠️ Vorsichtsmaßnahmen: Bei dieser Methode werden keine tatsächlichen leeren Zeilen eingefügt, sondern mithilfe zusätzlicher Zeilen und Hilfsformeln simuliert. Anschließend müssen Sie die Daten sortieren, um die simulierten Leerzeilen korrekt anzuordnen. Diese Lösung eignet sich ideal für kleine bis mittlere Datensätze.
Schritte:
- Angenommen, Ihre Daten befinden sich in den Zellen A2:B11. Geben Sie in einer neuen Hilfsspalte (z. B. Spalte C ab Zelle C2) folgende Formel ein:
Ersetzen Sie=INT((ROW()-ROW($A$2))/(n+1))ndurch das Intervall, in dem Sie eine leere Zeile einfügen möchten. Um beispielsweise nach jeweils 3 Zeilen eine leere Zeile einzufügen, verwenden Sie:=INT((ROW()-ROW($A$2))/3) - Ziehen Sie die Formel entlang Ihres Datensatzes nach unten, um Gruppennummern zuzuweisen.
- Fügen Sie unterhalb der letzten Datenzeile zusätzliche Zeilen ein, wobei die Spalten A und B leer bleiben. Tragen Sie in Spalte C (der Hilfsspalte) Gruppennummern ein, die mit bereits vorhandenen übereinstimmen, damit diese leeren Zeilen korrekt gruppiert werden.
- Markieren Sie den gesamten Bereich (ursprünglich + hinzugefügte Zeile), sortieren Sie dann nach der Hilfsspalte und wenden Sie gegebenenfalls eine sekundäre Sortierung an. Die leeren Zeilen erscheinen nun nach jeweils n Datenzeilen.
🟡 Fehlerhinweis:
- Stellen Sie sicher, dass Sie Ihren leeren Zeilen die richtigen Gruppennummern zuweisen – Abweichungen führen dazu, dass sie an unbeabsichtigten Stellen erscheinen.
- Beachten Sie, dass diese Methode erst nach der Sortierung physische Zeilen hinzufügt – bestätigen Sie daher das endgültige Layout, bevor Sie speichern oder exportieren.
Zusammenfassung und Tipps: Obwohl diese formelbasierte Methode nicht so effizient ist wie die Verwendung von VBA oder Tools wie Kutools, ist sie universell kompatibel und kommt ganz ohne Skripte aus. Für seltene oder einfache Aufgaben bietet sie eine flexible und unkomplizierte Alternative.
Zeilen kopieren und einfügen mehrfach basierend auf bestimmten Zahlen mithilfe von VBA-Code
Wenn Ihre Aufgabe nicht nur das Einfügen leerer Zeilen umfasst, sondern auch das mehrfache Duplizieren und Einfügen vorhandener Datenzeilen – etwa basierend auf einer separaten Zahlenliste – bietet der folgende VBA-Code eine praktische Automatisierungslösung. Diese ist besonders nützlich, um Einträge für Aufträge, Szenarien oder die Ressourcenplanung effizient zu vervielfältigen.
 | |  |
Gehen Sie zur Umsetzung wie folgt vor:
1. Halten Sie in Excel ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic für Applikationen zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie den folgenden Code in das Modulfenster ein.
VBA-Code: Zeilen kopieren und einfügen mehrfach basierend auf bestimmten Zahlen:
Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub
Vorsichtsmaßnahmen: Sichern Sie stets Ihre Daten, bevor Sie VBA-Skripte ausführen, die doppelte Zeilen verarbeiten – diese können Ihre Daten schnell vervielfältigen, und Änderungen lassen sich unter Umständen nicht einfach rückgängig machen.
3. Sobald der Code eingefügt ist, drücken Sie F5, um das Makro auszuführen. Wählen Sie im Dialogfeld die Zahlenliste aus, die angibt, wie oft jede Zeile dupliziert und eingefügt werden soll.
4. Klicken Sie auf OK. Die angegebene Anzahl von Zeilen wird unterhalb jeder ursprünglichen Zeile eingefügt, wie unten dargestellt:
| | |
Tipp: Diese Lösung eignet sich ideal für Datenaufbereitungsaufgaben, ist jedoch weniger geeignet für Echtzeit-Eingaben – denn sobald weitere, nicht zusammenhängende Aktionen ausgeführt wurden, lassen sich VBA-Makros nicht mehr rückgängig machen.
Zeilen kopieren und einfügen mehrfach basierend auf bestimmten Zahlen mit einer beeindruckenden Funktion
Für Anwender, die das Duplizieren und Einfügen von Zeilen intuitiv und ohne Programmierkenntnisse erledigen möchten, bietet die Kutools für Excel-Funktion Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen eine effiziente Alternative. Mit diesem Werkzeug legen Sie einfach fest, welche Zeilen oder Spalten wie oft dupliziert werden sollen – basierend auf einem Referenzzellenwert oder einer Liste – und das alles mit nur wenigen, intuitiven Auswahlaktionen.
Nach der Installation von Kutools für Excelführen Sie folgende Schritte aus:
1. Wechseln Sie zu Kutools > Einfügen > Zeilen/Spalten gemäß angegebenen Daten kopieren oder einfügen, wie gezeigt:
2. Wählen Sie im Dialogfeld Zeilen/Spalten kopieren und einfügen als Typ Zeilen kopieren und einfügen aus, geben Sie den Datenbereich an, der dupliziert werden soll, und legen Sie die Werteliste fest, die als Grundlage für die Duplizierung dienen soll, wie dargestellt:
Tipp: Nutzen Sie diese Funktion, um Testdaten zu erstellen, Transaktionsvorlagen zu vervielfältigen oder Einstellungen und Datensätze schnell zu multiplizieren – ganz ohne komplexe Skripterstellung.
4. Klicken Sie abschließend auf OK oder Anwenden, um die Ausgabe wie unten dargestellt zu generieren:
| | |
Hinweis: Stellen Sie sicher, dass Ihre Werteliste korrekt mit Ihren Daten übereinstimmt, um die erwarteten Ergebnisse zu erzielen.
Laden Sie Kutools für Excel jetzt herunter und testen Sie es kostenlos!
Weitere verwandte Artikel:
- Zeile mehrfach kopieren und einfügen oder die Zeile X-mal duplizieren
- Haben Sie bei Ihrer täglichen Arbeit jemals versucht, eine Zeile oder jede Zeile zu kopieren und anschließend mehrfach unterhalb der aktuellen Datenzeile in ein Arbeitsblatt einzufügen? Angenommen, Sie haben einen Zellbereich und möchten nun jede Zeile kopieren und dreimal in die nächste Zeile einfügen, wie im folgenden Screenshot dargestellt. Wie können Sie diese Aufgabe in Excel lösen?
- Leere Zeilen einfügen, wenn sich der Wert in Excel ändert
- Angenommen, Sie haben einen Datenbereich und möchten leere Zeilen einfügen, sobald sich ein Wert ändert – um fortlaufende identische Werte in einer Spalte voneinander zu trennen, wie in den folgenden Screenshots gezeigt. In diesem Artikel zeige ich Ihnen einige praktische Tricks, mit denen Sie dieses Problem ganz einfach lösen können.
- Eine Leere Zeile nach bestimmtem Text in Excel einfügen
- Wenn Sie leere Zeilen nach einem bestimmten Text einfügen möchten – wie im folgenden Screenshot gezeigt –, wie können Sie das schnell und einfach erledigen, ohne sie manuell einzeln einzufügen?
- Zeilen aus mehreren Arbeitsblättern basierend auf Kriterien in ein neues Blatt kopieren
- Angenommen, Sie haben eine Arbeitsmappe mit drei Arbeitsblättern, die alle das gleiche Format wie im folgenden Screenshot aufweisen. Wie können Sie alle Zeilen, in deren Spalte C der Text „Abgeschlossen“ steht, schnell und einfach in ein neues Arbeitsblatt kopieren – ohne sie manuell einzeln zu kopieren und einzufügen?
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