09.03.2018, 11:44
Vor einiger Zeit zeigte "Luschi" diese Variante des Autofilters
(es war Absicht, keine InputBox einzubauen, der Fragesteller soll auch selbst einen Beitrag leisten)
Code:
.AutoFilter field:=1, Criteria1:=xlNone, Operator:=xlFilterValues, _
Criteria2:=Array(0, "1/1/2015", 1, "4/26/2016")
'array(0, "4/26/2015") : (0):alle aus 2015
'array(1, "4/26/2016") : (1): alle im Monat 4
'array(2, "4/26/2016") : (2): nur diese Datum
(es war Absicht, keine InputBox einzubauen, der Fragesteller soll auch selbst einen Beitrag leisten)