Der Autofilter

Function SAPR3Ref(typ, Toleranz, MnValue, MxValue)
Dim typ1 As String
typ1 = typ
Dim Tol As Integer
Tol = Toleranz
Dim Minimum As Double
Minimum = MnValue
Dim Maximum As Double
Maximum = MxValue
Call Filtern(typ1, Tol, Minimum, Maximum)
End Function

Sub Filtern(Sort As String, tolcode As Integer, Min As Double, Max As Double)
With Worksheets("DOWNLOAD")
.Select
If .AutoFilterMode = False Then
.Range("A3").AutoFilter
VisibleDropDown = True
End If
.Range("A3").AutoFilter Field:=1, Criteria1:=Sort
.Range("S3").AutoFilter Field:=19, Criteria1:=tolcode
.Range("T3").AutoFilter Field:=20, Criteria1:=">=" & Min, Operator:=xlAnd, Criteria2:="<=" & Max
Application.ScreenUpdating = True
End With
End Sub