habe folgendes:
If Sheets("Test").Range("A4").Value >= 0 Then
Suchtext = InputBox("KM für die Filterung eingeben:", "Filter für die KM Auswahl ", "3.000")
Range("V2").Value = Suchtext
If Not ActiveSheet.AutoFilterMode Then
Range("A3:AY3").AutoFilter
End If
Selection.AutoFilter Field:=22, Criteria1:=Suchtext, Operator:=xlAnd
leider funktioniert es nicht.
Die Filterung klappt aber so:
' Selection.AutoFilter Field:=22, Criteria1:=">=3000", Operator:=xlAnd
Warum
mfg kurt p