Office: (Office 2016) Makro Problem nach Wörtern filtern und Zeilen löschen

Hallo zusammen!

Ich habe ein Makro, dass ich erweitern möchte.
Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle Datenzeilen löschen, die in Spalte 10 eines von 4 Wörtern enthält. Diese Zellen beinhalten aber unter anderen diese 4 Begriffe, nicht nur ausschließlich.

Ich habe unten den Code von einem der 4 Wörter hinkopiert.

Mein Code funktioniert leider irgendwie nicht bzw die Filter werden gar nicht erst angewandt. Was ist mein Fehler?

Code:

Code:

With Sheets("Sheet1")
        If Application.CountIf(Columns(10), "BIND") > 0 Then
        Rows("1:1").AutoFilter Field:=10, Criteria1:="*" & BIND & "*"
        .Range(.Rows(2), .Rows(.UsedRange.Rows(.UsedRange.Rows.Count).Row)).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        End If

 

Hi,

ich würde das nicht mit Filter machen sondern in einer Schleife über alle Zeilen laufen, dabei Spalte 10 nach dem Inhalt prüfen und wenn Bedingung erfüllt, dann Zelle A leeren. Nach dem Schleifendurchlauf alle Zeilen löschen, bei denen Zelle A leer ist:

Code:

Sub ZeilenLoeschen()
    Dim lngZeile As Long
    Dim lngLetzte As Long
    lngLetzte = Columns(1).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    For lngZeile = 2 To lngLetzte
        If InStr(1, Cells(lngZeile, 10), "BIND", vbBinaryCompare) > 0 Or _
            InStr(1, Cells(lngZeile, 10), "RAUM", vbBinaryCompare) > 0 Or _
            InStr(1, Cells(lngZeile, 10), "HAUS", vbBinaryCompare) > 0 Or _
            InStr(1, Cells(lngZeile, 10), "OFEN", vbBinaryCompare) > 0 Then
            Cells(lngZeile, 1).ClearContents
        End If
    Next lngZeile
    If Application.CountA(Range(Cells(2, 1), Cells(lngLetzte, 1))) < lngLetzte - 1 Then _
        Range(Cells(2, 1), Cells(lngLetzte, 1)).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

In der Zeile If InStr(.....) musst du natürlich alle deine 4 Worte eintragen, nach denen verglichen werden soll.

---

 

Wow, Danke. Es funktioniert :) ich bin noch recht neu im Makro programmieren und du hast mir gerade sehr geholfen!