Gruppe
Allgemein
Problem
Es soll nach Datum in Spalte 2 gefiltert werden.
StandardModule: Modul1
Sub DateFilter()
Dim datA As Long, datB As Long
datA = CLng(DateValue("01.02.2001"))
datB = CLng(DateValue("01.03.2001"))
Selection.AutoFilter _
field:=2, _
Criteria1:=">=" & datA, _
Operator:=xlAnd, _
Criteria2:="<" & datB
End Sub