Zeilen in Tabelle löschen
23.06.2020 00:06:20
Sven
ich möchte in einer sogenannten intelligenten Tabelle Zeilen mit Bedingung löschen. Aus meiner VBA-Anfangszeit nutze ich folgendes:
Dim i As Integer
For i = Cells(Cells.Rows.Count, 1).End(xlUp).Row To 1 Step -1
On Error Resume Next
If Cells(i, 22) = "löschen" Then Rows(i).Delete
Next
Das hat grundlegend funktioniert. Nur habe ich irgendwann festgestellt, das damit die jeweilige komplette Zeile gelöscht wird. Ist bisher kein Problem gewesen, nun wollte ich das besser machen:
ActiveSheet.ListObjects("Platzhalter").Range.AutoFilter Field:=22, _
Criteria1:="löschen"
Range("Platzhalter").Select
Selection.EntireRow.Delete
Range("Platzhalter[[#Headers],[Nr.]]").Select
Selection.AutoFilter
Vielen Dank
Sven A.