Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Bestimmtes Wort in Spalte A, dann ganze Zeile löschen
#1
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!


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
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
[-] Folgende(r) 1 Benutzer sagt Danke an Werner.M für diesen Beitrag:
  • Oli-don
Antwortento top
#3
Funktioniert Smile
Vielen Dank
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste