Clever-Excel-Forum

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!

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

Funktioniert Smile

Vielen Dank

Oli-don

Werner.M

Oli-don