ich habe hier ein Code der fügt ins aktive Blatt ab Zeile 5 jeweils eine neue leere Zeile ein.
Kann jemand den Code so umscheiben das er jeweils zwei Zeilen in einem definierten Blatt und definierten Bereich einfügt?
Sub Leerzeilen()
Set wksTemp = ActiveSheet
Menge = wksTemp.UsedRange.Rows.Count
For i = Menge To 6 Step -1
Menge1 = i & ":" & i
Rows(Menge1).Select
Selection.Insert Shift:=xlDown
Next
End Sub
besten dank schon mal für eure Mühe.
Liebe Grüsse
Thomas