Leerzeilen mit definierter Höhe einfügen
18.01.2020 15:29:09
Andreas
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
Anzeige