Sub del99()
Dim i As Long
Dim delRng As Range
' Wirkt auf das aktive Blatt, ggf. hier das gewünschte Blatt ansprechen
With ActiveSheet
' Sammeln der zu löschenden Zeilen
For i = 1 To .Cells(Rows.Count, 9).End(xlUp).Row
If .Cells(i, 9) = 99 Then
If delRng Is Nothing Then
Set delRng = .Cells(i, 9)
Else
Set delRng = Union(delRng, .Cells(i, 9))
End If
End If
Next
' Und hier löschen
delRng.EntireRow.Delete
End With
End Sub
Sub del99()
Dim i As Long
Dim delRng As Range
' Wirkt auf das aktive Blatt, ggf. hier das gewünschte Blatt ansprechen
With ActiveSheet
' Sammeln der zu löschenden Zeilen
For i = 1 To .Cells(Rows.Count, 9).End(xlUp).Row
If .Cells(i, 9) = 99 Then
If delRng Is Nothing Then
Set delRng = .Cells(i, 9)
Else
Set delRng = Union(delRng, .Cells(i, 9))
End If
End If
Next
' Und hier löschen
If Not delRng Is Nothing Then delRng.EntireRow.Delete
End With
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen