in meiner Tabelle benutze ich zum löschen von Zeilen mit "0" in Spalte A z.Zt. folgendes Makro Sub Zeilen_loeschen() Dim z As Long, lZ As Long lZ = Sheets("xyz").Cells(65536, 2).End(xlUp).Row For z = lZ To 13 Step -1 With Sheets("xyz") If .Cells(z, 1) = "0" Then .Rows(z).Delete End With Next End Sub
Die Tabelle hat ca. 3000 Zeilen. Bisher dauert das löschen recht lange.
Wenn in Spalte A z.B. in A358 eine "0" steht auch in allen folgenden Zeilen in Spalte A (A359 ff...A3000) eine "0".
Meine Idee ist nun folgende. Finde die erste Zelle in Spalte A mit "0", und lösche diese und alle folgende Zeilen (egal was in Spalten B, C, D....steht) bis Zeile 3000. Ich verspreche mir davon eine erhebliche Beschleunigung.
Kann mir jemand von Euch auf die Sprünge helfen?
Beste Grüße
Jens