AW: Makro erstellen
05.10.2019 16:49:37
Daniel
HI
Autofilter wäre manuell das einfachste.
Per Makro und wenns schnell gehen muss, ist meiner Erfahrung nach das hier das einfachste und flexibelste. Dieses Vorgehen sollte man sich merken, weil es
- auch bei großen Datenmengen sehr schnell ist
- über die Formel flexibel an die unterschiedlichsten Bedingungen zum Löschen angepasst werden kann (auch mit berücksichtigung benachbarter Zeilen, was beim Autofilter nicht möglich ist):
With ActiveSheet.Usedrange
With .Colums(.Columns.Count + 1)
.FormulaR1C1 = "=IF(RC11
bei sehr großen Datenmengen würde sich im Speziellen Löschfall (Wert kleiner gleich 0) auch dieses anbieten, allerdings wird hier die Liste umsortiert.
With AcitveSheet.UsedRange
.Sort Key1:=.Cells(1, 11), order1:=xlascending, header:=xlyes
Range(.Rows(2), .Rows(Application.Match(0, .Columns(11), 1))).Delete Shift:=xlup
End with
die dritte Variante wäre dann, auch wieder für den Spezialfall negative Werte und 0, alle Zahlen die mit "-" beginnen und die 0 durch einen Wahrheitswert zu ersetzen und dann die Zellen mit Wahrheitswert zu löschen:
With Columns(11)
.Replace "-*", False, xlWhole
.Replace "0", False, xlWhole
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
End With
Gruß Daniel