Sub Lösche_PASS()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
Dim rng As Range
Dim i As Integer, counter As Integer
Set rng = Range("H4:H5000")
i = 1
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = "PASS" Then
rng.Cells(i).EntireRow.Delete
Else
i = i + 1
End If
Next
Next
End Sub
Sub Lösche_Leer()
Dim sh As Worksheet
For Each sh In ActiveWorkbook.Worksheets
sh.Activate
Dim rng As Range
Dim i As Integer, counter As Integer
Set rng = Range("H4:H100")
i = 1
For counter = 1 To rng.Rows.Count
If rng.Cells(i) = "" Then
rng.Cells(i).EntireRow.Delete
Else
i = i + 1
End If
Next
Next
End Sub