Guten Tag
Ich habe eine Excelliste, bei der immer nach 23 Zeilen neu eine Zeile eingefügt werden soll mit einem bestimmten Inhalt. Diese zu kopierende Zeile habe ich mal an den Anfang gesetzt.
Probiert habe ich folgendes.
Sub ZeilenEinfügen()
Dim iZeile As Long
Dim info
iZeile = 25
Do Until iZeile > Range("A60200").End(xlUp).Row
info = Rows(1).EntireRow.Copy
Rows(iZeile).EntireRow.Insert
iZeile = iZeile + 24
Loop
End Sub
Dies funktioniert super für die eine Tabelle mit ca. 200 Zeilen. Für die anderen Tabellen (mehr als 4000 Zeilen), die genau gleich aufgebaut sind, passiert aber gar nichts.
Woran liegt das?
Liebe Grüsse
pre