☰

Einträge in gefilterter Tabelle bis heute über EXCEL VBA anzeigen und zählen

tag-icon • tag-icon microsoft-excel vba
Einträge in gefilterter Tabelle bis heute über EXCEL VBA anzeigen und zählen

wie der Titel schon sagt, versuche ich, mithilfe eines Filters über VBA alle in der Zukunft liegenden Datumseinträge aus einer gefilterten Tabelle auszublenden und hochzuzählen, aber der Code funktioniert einfach nicht, egal, wie ich es versuche.

Mein derzeitiger Ansatz ist wie folgt:


Dim wbkPlanning As Workbook
Dim wksPlanning As Worksheet
Dim FilterValue as Integer

Workbooks.Open (.... Some Path...) 'this works as i have several other Autofilters in this macro that do the job just fine)

Set wbkPlanning = Workbooks("NAMEOFWORKBOOK.xlsx")
Set wksPlanning = wbkPlanning.Worksheets("NameOfWorksheet")

wksPlanning.Range("$A$4:$AS$600").AutoFilter Field:=24, Criteria1:="=<" & CDbl(Date)

FilterValue = wksPlanning.AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count - 1

MsgBox FilterValue

Wenn ich den Filter manuell im Arbeitsblatt einrichte, sind die Ergebnisse in Ordnung, aber wenn ich ihn so einrichte, erhalte ich null Ergebnisse.

Ich bin irgendwie ratlos und würde mich über ein paar Tipps sehr freuen.

Danke!

Antwort1

Ein anderer Filter im Arbeitsblatt verhinderte, dass der Datumsfilter das richtige Ergebnis anzeigte. Das Kriterium CDbl(Datum) funktionierte.

verwandte Informationen