Ich sollte in einer grossen Tabelle mit über 700 Zeilen zwischen allen Zeilen eine bestimmte Anzahl Leerzeilen einfügen.
Wie kann ich das am einfachsten tun?
Besten Dank bereits im Voraus für deine Hilfe!
bneyer
Sub Leerzeileneinfuegen()
Dim wks As Worksheet
Dim Zeile As Long
Dim StatusCalc
'Makrobremsen lösen
With Application
' .EnableEvents = False 'nur erforderlich, wenn Ereignismakros vorhanden
StatusCalc = .Application.Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Set wks = ActiveSheet
With wks
For Zeile = .UsedRange.Row + .UsedRange.Rows.Count - 1 To 1 Step -1
.Range(.Rows(Zeile + 1), .Rows(Zeile + 7)).Insert
Next
End With
'Makrobremsen zurücksetzen
With Application
' .EnableEvents = True 'nur erforderlich, wenn Ereignismakros vorhanden
.Calculation = StatusCalc
.ScreenUpdating = True
End With
End Sub
Gruß For Zeile = 2330 To 20 Step -1
Es ist aber auch schwer so ein einfaches Makro in Eigeninitiative zu verstehen und anzupassen.