letzte Zeile aktualisiert sich nicht
17.09.2020 14:45:40
Matthias
es geht um folgenden Code:
Sub leerzeilen()
Dim lz_komm As Long
Dim i as Long
lz_komm = Worksheets(2).UsedRange.SpecialCells(xlCellTypeLastCell).Row
With kommblatt
i = 2 to lz_komm + 1
If Worksheets(2).Cells(i, 26).Value Worksheets(2).Cells(i - 1, 26).Value Then
Rows(i).Insert
i = i + 1
lz_komm = lz_komm + 1
End If
Next i
End With
End Sub
Da der Code während des Ausführens neue Zeilen erstellt, müsste sich die "lz_komm" also die letzte Zeile, nach jedem durchgang aktualisieren.
Hierfür habe ich "lz_komm = lz_komm + 1" angefügt.
Jedoch arbeitet der Code nur, bis der Anfangswert lz_komm + 1 erfüllt ist.
Wie kann man das ganze dynamischer gestalten, dass lz_komm nicht als fester Wert hinterlegt wird, sondern sich nach jedem Schritt aktualisiert?
Oder gibt es hierfür bessere Lösungen?
Liebe Grüße
Matthias