VBA-Code für die Filterung durch den aktuellen Monat

Question

Ich habe ein Arbeitsblatt Aufträge, die eine Spalte von nach Datum abgeschlossen haben. Ich versuche, es zu filtern, um alle Bestellungen mit Daten in der Vergangenheit bis zum Ende des aktuellen Monats (EX: alle vergangenen Bestellungen-Ende Juli 2017) zu zeigen.

Der aktuelle Code, den ich benutze funktioniert, aber aus irgendeinem Grund nicht zurück 7/31/2017. Es wird alle vorherigen Daten bis zum 30.07.2017 zurückgeben. Kann mir bitte jemand helfen.

Sub Macro3() 
Dim dtStart As Date 
Dim dtFinal As Date 

dtStart = CDate(Evaluate("DATE(YEAR(NOW()),-1,1)")) 
dtFinal = CDate(Evaluate("EOMONTH(NOW(),0)")) 

ActiveSheet.Range("$A$1:$N$709").AutoFilter 13, ">=" & dtStart, xlAnd, "<=" & 
dtFinal, Operator:=xlFilterDynamic 
End Sub 

Answer 1

dtFinal ist 31. Juli 2017 um 12:00 Uhr. Sie möchten Ihr endgültiges Datum am 1. August abgeben und dann Ihren Filter von "<=" zu "<" ändern.

Answer 2

können Sie verwenden, um die WorksheetFunction.EoMonth-Funktion und die DateSerial, und ersetzen Sie Ihren Now mit Date, da man mit den Stunden zu verwirren nicht brauchen.

Versuchen Sie, die Linie unten anstatt den gesamten Code:

ActiveSheet.Range("A1:N709").AutoFilter 13, ">=" & DateSerial(Year(Date), -1, 1), _ 
           xlAnd, "<=" & WorksheetFunction.EoMonth(Date, 0), _ 
           Operator:=xlFilterDynamic