Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern