AutoFilter Field:=1, Criteria1:=Array( _

Sub Makro3()
ActiveSheet.Range("$A$2:$A$1573").AutoFilter Field:=1, Criteria1:=Array( _
"12", "28", "29"), Operator:=xlFilterValues
End Sub

Sub AutoFilterEinstellen()
Dim Filterwerte, Fwert As String
FilterwertKontrolle = 0
Range("R2").Activate
For i = 1 To 1573
ActiveCell.Offset(1, 0).Activate
If ActiveCell.Value = "X" Then
Fwert = ActiveCell.Offset(0, -17).Value
If FilterwertKontrolle = Fwert Then
Else
Filterwerte = Filterwerte & Fwert & Chr(34) & ", " & Chr(34)
FilterwertKontrolle = Fwert
End If
End If
Next
TextLänge = Len(Filterwerte)
Filterwerte = Left(Filterwerte, TextLänge - 4)
Filterwerte = Chr(34) & Filterwerte & Chr(34) 'zeigt ""12", "28", "29""
Stop
ActiveSheet.Range("$A$2:$A$1573").AutoFilter Field:=1, Criteria1:=Array(Filterwerte), Operator:= _
xlFilterValues
End Sub