VBA Autofilter op een waarde kleiner dan cel A1

[erwinb999]

Hallo,

Ik heb probleempje in de VBA binnen Excel.

Ik wil binnen een macro een autofilter uitvoeren op een kolom (3e) en ik wil daarbij dat alle waardes worden getoond welke kleiner zijn dan de waarde die op dat moment in cel A1 staat.

Ik heb het geprobeerd met deze code:

Selection.Autofilter Field:=3, Criteria1:=<Range("A1").Value, Operator:=xlAnd

maar dat werkt niet.

Iemand een idee ?

 

[snb]

Neem eens een macro op....

Sub tst()
    [C1].AutoFilter 1, "<" & [A1]
End Sub

 

[erwinb999]

Bedankt voor je reactie.

Ik heb het toegepast en ik dacht dat het werkte, maar het werkt niet bij alle datums :shocked:

Ik heb voor de duidelijkheid een voorbeeldje toegevoegd.

Wanneer ik bijvoorbeeld 01-01-2010 als datum invoer dan werkt het, maar wanneer ik 15-01-2010 kies dan werkt het niet. Ik snap er niets meer van.

 

[snb]

Sub tst()
    [C1].AutoFilter 1, "<" & format([A1],"mm/dd/yyyy")
End Sub

 

[erwinb999]

Het werkt !!

Geweldig.. Super bedankt. :thumb: