Ich möchte in einem Reporting (Pivottabelle) den Datumsfilter anwenden.
Der Filte befindet sich in Zelle B1.
Leider funktioniert der Code nicht :/
'Datumsfilter
If MsgBox("Wollen Sie nach einem bestimmten Datum filtern?", vbYesNo) = vbNo Then Exit Sub
Dim StartFilterDate As Date, EndFilterDate As Date
With Application
StartFilterDate = CDate(.InputBox(Prompt:="enter startdate mm/dd/yyyy", Type:=2))
EndFilterDate = CDate(.InputBox(Prompt:="enter enddate mm/dd/yyyy", Type:=2))
MsgBox StartFilterDate & vbCrLf & EndFilterDate
With Sheets("Reporting").Cells(1, 1).CurrentRegion
.AutoFilter Field:=1, Criteria1:=">=" & CLng(StartFilterDate), Operator:=xlAnd, Criteria2:="<=" & CLng(EndFilterDate)
End With
End With
End Sub
|