Hallo
Wie kann ich in einer Schleife, in der Zeilen eingfügt werden, den Schlusswert der Schleife um die jeweils eingefügten Zeilen erhöhen damit die Schleife nicht zu früh endet?
zB:
For i = 1 to Cells(Rows.Count, 1).End(xlUp).Row
If ActiveCell.Offset(i , 0) = "Hallo" then
Range(ActiveCell.Offset(i , 0), ActiveCell.Offset(i+1, 0)).EntireRow.Insert
end if
next
In diesem Code wird nach dem Wert -Cells(Rows.Count, 1).End(xlUp).Row- der vor dem einfügen
der Zeilen gültig war die Schleife beendet. Also um die Anzahl eingefügten Zeilen zu früh.
Besten Dank und Gruss
Hugo