Supportnet / Forum / Tabellenkalkulation

Ich habe folgendes Problem: Ich habe eine Liste mit Daten xxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxxxxxxxxxxxxxxxxxxxxxx Ich möchte jetzt nach jeder Datenzeile 6 Leerzeilen einfügen. Da die Liste ziemlich lang ist, ist es manuell ziemlich aufwendig. Vielleicht hat jemand einen Tipp???

Hallo,

versuch es mal mit dem Makro

Sub Leerzeilen()
´ Makro am 25.01.2006 von bauer aufgezeichnet

Range("a1").Select
While IsEmpty(ActiveCell) = False
    ActiveCell.Offset(6, 0).Select
    Selection.EntireRow.Insert
    ActiveCell.Offset(1, 0).Select
Wend
End Sub

Gruß

Helmut

Hallo Helmut,

danke erst einmal für deine Hilfe.
Jedoch funktioniert es bei mir nicht wie gewollt.

Dein Makro fügt mir nach jeder sechsten Zeile eine Leerzeile ein.

Ich jedoch will, dass nach jeder Zeile sechs Leerzeilen eingefügt werden!


Geht das auch irgendwie???

Hallo,

Lesefehler von mir, aber so müsste es gehen

Sub Leerzeilen()
´ Makro am 25.01.2006 von bauer aufgezeichnet

Range("a1").Select
While IsEmpty(ActiveCell) = False
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
Selection.EntireRow.Insert
ActiveCell.Offset(6, 0).Select
Wend
End Sub

Gruß

Helmut

Super, jetzt hat es geklappt! Besten Dank!!!

• daten mit leerzeilen untereinander schreiben
• Leerzeilen einfügen
• Leerzeilen automatisch ausblenden
• Leerzeilen einfügen