Bestimmtes Wort in Spalte A, dann ganze Zeile löschen

[Oli-don]

Hallo Zusammen,
wie kann man so etwas anstellen...
Wenn in Spalte A ein Wort/Wortteil "Baum" enthalten ist, sollte die gesammte Zeile (A2, B2, C2....) gelöscht werden.
Siehe Beispiel Anhang.
Vielen Dank!

[Werner.M]

Hallo,

so:

Code:

Public Sub Zeilen_löschen()
Dim i As Long, raBereich As Range

With Worksheets("Tabelle1")
    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
        If .Cells(i, "A") Like "*Baum*" Then
            If raBereich Is Nothing Then
                Set raBereich = .Cells(i, "A")
            Else
                Set raBereich = Union(raBereich, .Cells(i, "A"))
            End If
        End If
    Next i
    If Not raBereich Is Nothing Then
        raBereich.EntireRow.Delete
    End If
End With

Set raBereich = Nothing
End Sub

Gruß Werner

[Oli-don]

Funktioniert
Vielen Dank