Hallo zusammen,

ich habe ein kleines Problemchen und finde nicht den richtigen Kniff. Ich möchte in einer Tabelle Zeilen, die bestimmte Kriterien erfüllen über durch Makros gesetzte Autofilter löschen. Unter anderem möchte ich auch alle Zeilen löschen die in der ersten Spalte eine Null haben.

Ich habe es mit folgendem Code versucht. Allerdings einen Laufzeitfehler erhalten. Gibt es vielleicht eine andere Möglichkeit mit Filtern (Die brauch ich unbedingt für die anderen Kriterien.)?

Dim rng As Range
Selection.AutoFilter Field:=1, Criteria1:="="
Set rng = Range("A5").CurrentRegion.SpecialCells(xlCellTypeVisible)
rng.EntireRow.Delete

Ich wär euch sehr dankbar, wenn ihr mir helfen könntet.

Gruß,
Jessica