Gruppe
Allgemein
Problem
Wie kann ich über VBA nach Datum filtern?
StandardModule: basMain
Sub Filtern()
Dim vDat As Variant
vDat = InputBox( _
prompt:="Datum:", _
Default:=Format(Date + 6, "dd.mm.yy"))
If vDat = "" Then Exit Sub
vDat = CDate(vDat)
Range("A1").CurrentRegion.AutoFilter _
field:=3, Criteria1:=">=" & CDbl(vDat)
End Sub