Gruppe
Allgemein
Bereich
Filtern
Thema
Nach Datum filtern
Problem
Es soll nach Datum in Spalte 2 gefiltert werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
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