ich mochte Leerzeilen mit einer definierten Höhe 10 einfügen.
Ich habe schon ein VBA Script welches mir die Zeilen einfügt. Funktioniert tadellos, aber was muss ich noch hinzufügen damit die Leerzeilen nur 10 hoch sind?
Sub ZeilenEinfügen()
Dim iZeile As Long
iZeile = 3
Do Until iZeile > Range("A65536").End(xlUp).Row
Rows(iZeile).EntireRow.Insert
iZeile = iZeile + 3
Rows(iZeile).RowHeight = 10
Loop
End Sub
Vielen herzlichen Dank für eure Hilfe und Lösung