Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Datum filtern

Gruppe

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