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