Sub
Makro2()
Dim
loZeile
As
Long
, loSpalte
As
Long
Application.ScreenUpdating =
False
With
Worksheets(
"Tabelle1"
)
loZeile = .Cells(.Rows.Count, 1).
End
(xlUp).Row
If
loZeile < 4
Then
MsgBox
"Es sind keine Daten vorhanden."
Exit
Sub
End
If
loSpalte = .Cells(3, .Columns.Count).
End
(xlToLeft).Column
.Range(.Cells(3, 1), .Cells(loZeile, loSpalte)).AutoFilter Field:=4, Criteria1:=
"=*Test*"
, _
Operator:=xlOr, Criteria2:=
"=*Muster*"
If
WorksheetFunction.Subtotal(3, .Range(
"A3:A"
& loZeile)) = 1
Then
MsgBox
"Suchbegriffe sind nicht vorhanden."
Else
With
.AutoFilter.Range.Offset(1)
.Resize(ActiveSheet.AutoFilter.Range.Rows.Count - 1).EntireRow.Delete _
shift:=xlUp
End
With
End
If
If
.AutoFilterMode
Then
.AutoFilterMode =
False
End
With
Application.ScreenUpdating =
True
End
Sub