VBA suchen und löschen

Bild

Betrifft: VBA suchen und löschen
von: Dietz
Geschrieben am: 13.11.2015 11:43:30

Hallo,
ich möchte ein Sheet mit VBA durchsuchen lassen und alle Zeilen raus löschen die nicht "BZV" enthalten. Diese Information steht in Spalte A ab Zeile 3 bis letzte Zeile mit Werten. In Spalte A steht zB. "BZV-XYZ1234". Muss man da mit "Left" arbeiten? Und erfolgt das löschen über entirerow.delete wo "BZV" nicht vorkommt?
Gruß
Dietz

Bild

Betrifft: AW: VBA suchen und löschen
von: Michael (migre)
Geschrieben am: 13.11.2015 12:24:08
Hallo Dietz!
Muss man da mit "Left" arbeiten?
Ist eine Möglichkeit, ja.
erfolgt das löschen über entirerow.delete
Das muss nunmal sein, wenn Du die Zeile löschen willst.
zB so:

Sub BzvZeilenRaus()
    Dim Zelle As Range
    Dim Bereich As Range
    
    With Worksheets("Tabelle1")
        Set Bereich = .Range("A3:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
    End With
    For Each Zelle In Bereich
        If Left(Zelle.Text, 3) Like "BZV" Then Zelle.EntireRow.Delete shift:=xlUp
    Next
End Sub
In dieser Form wird aber zwischen "BZV" und "bzv" unterschieden - d.h. nur erstere Bedingung greift beim Löschen.
LG
Michael

Bild

Betrifft: AW: VBA suchen und löschen
von: Dietz
Geschrieben am: 13.11.2015 12:34:49
Danke Michael,
teste ich gleich mal aus!
Gruß
Dietz

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA suchen und löschen"