Guten Morgen an alle :)
Ich habe leider ein Problem mit meinem Code..
Ich möchte, dass der Nutzer ein Start- und Enddatum eingeben kann und die Pivottabelle dann in Zelle B1 danach filtert..
ich habe jetzt schon mehrere Sachen aus dem Internet versucht und bin noch relativ neu was VBA angeht.
Kann mir da jemand weiterhelfen?
Mein Code sieht wiefolgt aus..
sub pivotdatum ()
'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
|