versuchs mal mit dem Datentyp Long ;)
.AutoFilter Field:=1, Criteria1:=">=" & CLng(StartDate), Operator:=xlAnd, Criteria2:="<=" & CLng(EndDate)