Zeilen einfügen

• Zeilen einfügen von Ralph vom 14.12.2006 12:38:21
• AW: Zeilen einfügen - von haw am 14.12.2006 12:46:31
  • AW: Zeilen einfügen - von Ralph am 14.12.2006 13:10:19

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

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

Betrifft: AW: Zeilen einfügen
von: Ralph
Geschrieben am: 14.12.2006 13:10:19
Vielen Dank!!!!!!!!!

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