Herbers Excel-Forum - das Archiv

Zeilen einfügen

Bild

Betrifft: Zeilen einfügen
von: Ralph

Geschrieben am: 14.12.2006 12:38:21
Hallo Profis,
ich habe eine Tabelle mit ca. 2000 Zeilen. Ich möchte gern nach jeder gefüllten Zeile jeweils 5 Leerzeilen einfügen. Weiß jemand Hilfe?
Gruß Ralph
Bild

Betrifft: AW: Zeilen einfügen
von: haw
Geschrieben am: 14.12.2006 12:46:31
Hallo Ralph,
z.B.so:
Sub Zeileneinfügen()
Dim lz%, i%
lz = Cells(Rows.Count, 1).End(xlUp).Row
For i = lz To 1 Step -1
Range(Cells(i, 1), Cells(i + 4, 1)).EntireRow.Insert
Next i
End Sub

Gruß Heinz
Bild

Betrifft: AW: Zeilen einfügen
von: Ralph
Geschrieben am: 14.12.2006 13:10:19
Vielen Dank!!!!!!!!!
 Bild
Excel-Beispiele zum Thema "Zeilen einfügen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren