Daten löschen mit Autofilter, wenn keine Daten da
erkacol@gmx.de
ich möchte per VBA in einer Excel-Tabelle bestimmte Datensätze mit dem Autofilter auswählen und diese dann löschen. Das klappt soweit auch.
'Stornogrund 50 (Spalte L) und keine Matkennung (Spalte S = leer)
Selection.AutoFilter Field:=12, Criteria1:="50"
Selection.AutoFilter Field:=19, Criteria1:="="
loLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows("2:" & loLetzte).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
'Matkennung (Spalte S = 001)
Selection.AutoFilter Field:=19, Criteria1:="001"
loLetzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Rows("2:" & loLetzte).Select
Selection.Delete Shift:=xlUp
ActiveSheet.ShowAllData
Leider kann es auch sein, dass keine Datensatze in der Tabelle enthalten sind, die den Filterkriterinen entsprechen (es also nix zu löschen gibt). In diesen Fällen werden aber die Spaltenüberschriften gelöscht.
Ich bräuchte also eine Funktion, die die Daten filtert und löscht, wenn Datensätze enthalten sind bzw. den nächsten Autofilter ausführt, wenn keine Datensäze ausgewählt werden.
Danke schonmal für eure Hilfe!
"erkacol"