Dates and filters can be a pain.

I'd try this first:
Selection.AutoFilter Field:=4, Criteria1:="<="&dateserial(2007,9,7)

If that didn't work, I'd try this next:
Selection.AutoFilter Field:=4, Criteria1:="<="&clng(dateserial(2007,9,7))

If that didn't work, I'd try this next:
Selection.AutoFilter Field:=4, _
Criteria1:="<="&format(dateserial(2007,9,7),"dd.mm .yyyy")

match the number format for that field. But I'd guess that your original would
work if this one does.


wrote:

Hi,
I generated a macro via the macro recorder which turns out not to
work. Whenever I run it I don't get any results even though I should.
When I open the autofilter settings and just press ok without changing
anything however it works. Does anyone have any clue on that? (code
see below)

Sub BugTest()
Selection.AutoFilter Field:=4, Criteria1:="<=07.09.2007",
Operator:=xlAnd
End Sub

Cheers,
Lars

--

Dave Peterson