|
Ich möchte, dass mein Code nach einem bestimmten Zeitraum filtert.
Es findet zu Beginn eine Abfrage für das Startdatum und das Enddatum statt.
Die Werte werden dann auch als Variabel gespeichert und dann im Filter genutzt, aber es kommen einfach keine Ergebnisse raus.. Was mache ich falsch?
Wenn ich als Startdatum den 01.01.2023 und als Enddatum den 05.01.2023 eingebe, möchte ich, dass er mir das entsprechend anzeigt.. :/
Der Code sieht wiefolgt aus:
Dim StartDate As Date, EndDate As Date
With Application
StartDate = CDate(.InputBox(Prompt:="enter startdate mm/dd/yyyy", Type:=2))
EndDate = CDate(.InputBox(Prompt:="enter enddate mm/dd/yyyy", Type:=2))
MsgBox StartDate & vbCrLf & EndDate
With Sheets("Tabelle1").Cells(1, 1).CurrentRegion
.AutoFilter Field:=1, Criteria1:=">=" & CDate(StartDate), Operator:=xlAnd, Criteria2:="<=" & CDate(EndDate)
End With
End With
end sub
Die Excel schmeißt mir dann folgendes raus:
Danke schonmal für eure Hilfe!
|