AW: Zellen mit bestimmten Inhalt suchen
26.10.2021 14:32:03
Werner
Hallo,
ich würde die entsprechenden Zeilen nicht einzeln löschen sondern sie zunächst in einer Range-Variablen sammeln und dann am Schluß alle in einem Rutsch löschen. Ist auf alle Fälle erheblich schneller.
Public Sub Zeilen_löschen()
Dim raWeg As Range
With Worksheets("Tabelle1")
For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
If Left(.Cells(i, "A"), 2) "MS" Then
If raWeg Is Nothing Then
Set raWeg = .Cells(i, "A")
Else
Set raWeg = Union(raWeg, .Cells(i, "A"))
End If
End If
Next i
If Not raWeg Is Nothing Then
raWeg.EntireRow.Delete
End If
End With
Set raWeg = Nothing
End Sub
Gruß Werner