Excel - Makro - 3 Zeilen einfügen

[Selim]

Hallo liebe Leute,

 

ich habe eine Excelliste mit 3000 Zeilen. Ich möchte unter jeder Zeile 3 Leerzeilen automatisch einfügen lassen.

 

Könnt ihr mir dazu die Makro Formel nennen?

 

Vielen Dank..

 

[Selim]

Ich habs..

 

Sub Zeilen Einfügen()

For i = 1 To 3000 Step 2

 

Rows(i).Select

Selection.Insert Shift:=xlDown

Selection.Insert Shift:=xlDown

Selection.Insert Shift:=xlDown

i = i + 2

 

Next i

End Sub

 

 

trotzdem danke..

[Nur Efsan]

Tja, der Spruch "hilf dir selbst, dann ist dir geholfen" ist öfters gar nicht mal so an den Haaren herbeigezogen^^