Sub Makro1()
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="24.9.2003"
End Sub
Sub DatumFiltern()
Dim Tag As Double
Tag = CDbl(DateValue("24.9.2003"))
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<" & Tag + 1, _
Operator:=xlAnd, Criteria2:=">" & Tag - 1
End Sub