ich möchte per makro automatisch immer 11 Zeilen einfügen lassen.
In meiner Spalte A stehen 82 Positionen, und ich brauche zwischen diesen jeweils 11 Leerzeilen.
Wie geht das?
herzlichen Dank im Voraus.
arend
Option Explicit
Sub mach()
Dim i As Long, j As Long
Const zeilen = 11
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
For j = 1 To zeilen
Cells((i - 2) * (zeilen + 1) + 2, 1).Insert Shift:=xlDown
Next j
Next i
End Sub
Gruss
Option Explicit
Sub machsanders()
Dim i&
Application.ScreenUpdating = False
With Sheets("Tabelle1")
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
.Rows(i).Resize(3).Insert
Next
End With
Application.ScreenUpdating = True
End Sub
Gruß