Leere Zeilen alle x-Zeilen einfügen

Forumthread: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 16:38:45

Dania

Hallo
Meine Excel-Liste besteht aus 49'500 Zeilen.
Nun muss ich immer nach 150 Zeilen 4 Leerzeilen einfügen.
Schlussendlich sollte es 330-mal «Blöcke» à 150 Zeilen mit Inhalt geben, und zwischen diesen Blöcken jeweils vier leere Zeilen, total also 50'820 Zeilen.
Gibts da eine clevere Möglichkeit?
Herzlichen Dank für eure Unterstützung!
lg Dania

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 17:02:50

onur

Ab Zeile 1?

AW: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 17:07:53

Gerd

Moin Dani,

Sub Unit()
Dim Z As Long
For Z = 49351 To 151 Step -150
Cells(Z, 1).EntireRow.Resize(4).Insert shift:=xlDown
Next
End Sub

Gruß Gerd

AW: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 21:30:29

Dania

Tausend Dank Gerd mein W'end ist gerettet ;)

AW: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 21:44:52

Daniel

Hi
Mal ein Ansatz ohne VBA:
1. Füge eine Hilffspalte (bspw Spalte X) mit der Zeilennummer ein: =Zeile()
2. Füge eine zweite Hilfsspalte (Y) ein mit der Formel: =Wenn(Rest(Zeile();150)=1;Zeile();"x")
Den Wert 2 musst du so wählen, dass die Zeilennummer dort erscheint, wo danach die Leerzeilen eingefügt werden sollen
3. kopieren beide Spalten und füge sie an gleicher Stelle als Wert ein.
4. kopieren die zweite Hilfsspalte und füge sie sooft unter der ersten Hilfsspalte ein, wie du Leerzeilen haben willst.
5. sortieren die Liste nach der ersten Hilfsspalte.
6. Lösche die Hilfsspalten
Das kann man natürlich auch programmieren und sollte dann etwa schneller sein als das Einfügen per Schleife (borallem dann, wenn die Abstände kleiner sind.)
Gruß Daniel

Ähnlich wie Daniel

20.06.2020 16:50:28

lupo1

X1[:X50820]: =WENN(A1&lt&gt"";ZEILE();KÜRZEN((ZEILE()-49500)/4+1)*150+0,1)
anschließend plattmachen (=durch Werte ersetzen) und nach X sortieren.

AW: Leere Zeilen alle x-Zeilen einfügen

19.06.2020 19:19:11

Günther

Moin,
nicht nur wenn sich die Zeilen-Zahl glatt durch 150 teilen lässt bietet sich auch Power Query an ...

Gruß
Günther | mein Excel-Blog

Infobox / Tutorial

Leere Zeilen alle x-Zeilen einfügen in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um in Excel automatisch Leerzeilen nach jeder x-Zeile einzufügen, kannst du folgende Schritte befolgen. In diesem Beispiel fügen wir nach jeder 150. Zeile 4 leere Zeilen ein:

VBA-Makro nutzen:
- Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA)-Editor zu öffnen.
- Füge ein neues Modul hinzu (Einfügen > Modul) und kopiere den folgenden Code hinein:
```
Sub LeereZeilenEinfügen()
   Dim Z As Long
   For Z = 49451 To 1 Step -150
       Cells(Z, 1).EntireRow.Resize(4).Insert shift:=xlDown
   Next
End Sub
```
- Schließe den VBA-Editor und führe das Makro aus (Entwicklertools > Makros > LeereZeilenEinfügen > Ausführen).
Alternative ohne VBA:
- Füge eine Hilfsspalte (z.B. Spalte X) mit der Formel =ZEILE() ein.
- In einer weiteren Hilfsspalte (z.B. Spalte Y) nutze die Formel: =WENN(REST(ZEILE();150)=1;ZEILE();"x").
- Kopiere die beiden Spalten und füge sie als Werte ein.
- Dupliziere die zweite Hilfsspalte so oft, wie du Leerzeilen haben möchtest.
- Sortiere nach der ersten Hilfsspalte und lösche die Hilfsspalten.

Häufige Fehler und Lösungen

Fehler: Makro funktioniert nicht
Lösung: Stelle sicher, dass die Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Sicherheitscenter > Einstellungen für das Sicherheitscenter > Alle Makros aktivieren.
Fehler: Excel stürzt ab
Lösung: Bei großen Datenmengen kann es zu einem Absturz kommen. Teile die Daten in kleinere Abschnitte auf und führe das Makro erneut aus.

Alternative Methoden

Power Query nutzen: Du kannst auch Power Query verwenden, um leere Zeilen einzufügen. Lade deine Daten in Power Query, füge eine Index-Spalte hinzu und verwende die Gruppierungsfunktion, um nach jeder Gruppe von 150 Zeilen 4 leere Zeilen hinzuzufügen.
Formel-basiert: Wenn du keine VBA-Makros nutzen möchtest, kannst du die oben genannten Formeln in einer Hilfsspalte verwenden, um die Zeilen zu kennzeichnen und dann manuell die Leerzeilen einzufügen.

Praktische Beispiele

Daten mit 49.500 Zeilen: Wenn du 49.500 Zeilen hast und nach jeder 150. Zeile 4 Leerzeilen einfügen möchtest, verwende das VBA-Makro. Es wird die Zeilen automatisch in der gewünschten Weise einfügen.
Leere Zeilen zwischen Daten: Wenn du zwischen bestehenden Daten immer eine Leerzeile einfügen möchtest, kannst du die Formel =WENN(A1<>"";ZEILE();KÜRZEN((ZEILE()-49500)/4+1)*150+0,1) verwenden, um die Zeilen zu kennzeichnen.

Tipps für Profis

Makros optimieren: Wenn du oft große Datenmengen bearbeitest, speichere dein Makro in der persönlichen Makroarbeitsmappe, um es jederzeit verwenden zu können.
Power Query: Nutze Power Query für komplexere Datenmanipulationen. Es bietet eine benutzerfreundliche Oberfläche und ist effizienter für große Datenmengen.
Effizienz steigern: Verwende Excel-Tabellen, um die Daten dynamisch zu halten. Wenn du neue Daten hinzufügst, aktualisieren sich die Formeln automatisch.

FAQ: Häufige Fragen

1. Wie viele Leerzeilen kann ich maximal einfügen?
Die Anzahl der leeren Zeilen hängt von der Excel-Version und dem verfügbaren Arbeitsspeicher ab. In der Regel ist Excel jedoch in der Lage, bis zu 1.048.576 Zeilen zu verwalten.

2. Kann ich die Anzahl der Leerzeilen anpassen?
Ja, du kannst die Anzahl der Leerzeilen im VBA-Code oder in den Formeln anpassen, indem du die entsprechenden Werte änderst.

3. Funktioniert das auch in Excel 365?
Ja, sowohl die VBA-Methode als auch die Formel-basierten Ansätze funktionieren in Excel 365 sowie in früheren Versionen.

Beliebteste Forumthreads (12 Monate)

Leere Zeilen alle x-Zeilen einfügen

Forumthread: Leere Zeilen alle x-Zeilen einfügen

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Leere Zeilen alle x-Zeilen einfügen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

Leere Zeilen alle x-Zeilen einfügen

Forumthread: Leere Zeilen alle x-Zeilen einfügen

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Leere Zeilen alle x-Zeilen einfügen in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread