Zeilen in Tabelle löschen
Ludwig
Ich habe 70'000 Zeilen von denen ich jede zweite löschen will!
Dieser Code dauert extrem lange:
Sub Delete2nd()
Dim var As Variant
Dim iRow As Long, iRowL As Long
Application.ScreenUpdating = False
Sheets("Sigma").Select
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
iRowL = iRowL - 1
For iRow = iRowL To 7 Step -2
Rows(iRow).Delete
Next iRow
Application.ScreenUpdating = True
End Sub
Weis jemand einen schnelleren Weg?
Vielen Dank für die Antwort.
MfG
Ludwig
Anzeige