ich möchte aus einer Liste mittels VBA komplette Zeilen löschen in der in Spalte 13 ein x vorhanden ist.
Momentan hab ich das mit folgendem Code gelöst:
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
[A1].AutoFilter Field:=13, Criteria1:="" 'Filtern nach x
[A1].Resize(Cells(Rows.Count, 1).End(xlUp).Row).Offset(1).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
Problem hierbei ist, dass dieser Vorgang bei großen Listen extrem lange dauert.
Gibt es hier einen besseren Code der die Operation schneller durchführen kann?
Vielen Dank im Voraus.
Foradh