Option
Explicit
Sub
FilterA()
Dim
wks
As
Excel.Worksheet:
Set
wks = ActiveSheet
Dim
rng
As
Excel.Range
Dim
lngRow
As
Long
Dim
i
As
Integer
Set
wks = ThisWorkbook.Worksheets(1)
With
wks
lngRow = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).
End
(xlUp).Row, _
.Cells(.Rows.Count, 1).Row)
End
With
With
wks
If
.AutoFilterMode
Then
.AutoFilterMode =
False
Set
rng = .Range(.Cells(1, 1), .Cells(lngRow, 12))
End
With
rng.AutoFilter Field:=8, Criteria1:=Array(
"Test*"
,
"Versuch*"
), Operator:=xlFilterValues
Set
rng =
Nothing
:
Set
wks =
Nothing
End
Sub