Filter Probleme
29.07.2003 13:08:12
Alex
Ich wollte eine Liste nach einigen Kriterien filtern und habe dazu folgenden code. Leider tut sich da überhaupt nichts wenn ich's probier. Kann mir bei diesem Problem vielleicht jemand helfen?
Function SAPR3Ref(typ, Toleranz, MnValue, MxValue)
With Worksheets("DOWNLOAD")
.Select
If .AutoFilterMode = False Then
.Range("A3").AutoFilter
VisibleDropDown = True
End If
.Range("A3").AutoFilter Field:=1, Criteria1:=typ
.Range("S3").AutoFilter Field:=19, Criteria1:=Toleranz
.Range("T3").AutoFilter Field:=20, Criteria1:=">=" & MnValue, Operator:=xlAnd, Criteria2:="<=" & MxValue
Application.ScreenUpdating = True
End With
End Function
Alex
Anzeige