Option
Explicit
Sub
Loesche_ueberfluessige_Zeilen()
Dim
sh
As
Worksheet
Dim
i
As
Long
For
Each
sh
In
ActiveWorkbook.Worksheets
For
i = sh.Cells(sh.Rows.Count,
"H"
).
End
(xlUp).Row
To
4
Step
-1
If
(sh.Cells(i,
"H"
) =
"PASS"
Or
sh.Cells(i,
"H"
) =
""
) _
And
sh.Cells(i,
"A"
) =
"ANL"
_
Then
Call
sh.Rows(i).Delete(xlShiftUp)
End
If
Next
Next
End
Sub