ich habe folgenden Code, der mir in einer Liste unter jedem Eintrag jeweils drei Zeilen einfügt. Dies klappt einwandfrei.
Der Code soll jedoch erst ab der zweiten Zeile arbeiten, sprich unter der ersten Zeile sollen keine Zeilen eingefügt werden, dann kommt die zweite Zeile und erst dann drei eingefügte.
Hier der Code:
Public Sub aaa()
Application.ScreenUpdating = False
With Worksheets("Sheet1")
For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 2 Step -1
.Rows(i).Resize(3).Insert
Next i
End With
End Sub
Freue mich über Eure Hilfe und bedanke mich im Voraus!
LG
Michel