Hallo Zusammen,
ich versuche eine Tabelle auf Datumsbasis zu Filtern. Datum steht in Spalte A und ist auch als Datum formatiert.
Mit folgendem Coding versuche ich den Filter zu setzten und auszuführen:
...
Dim intFR As Integer
Dim datStart As Date
Dim datEnde As Date
Sheets("FONDSVOLUMEN").Select
intFR = Cells(Rows.Count, 1).End(xlUp).Row
datStart = InputBox("Bitte Startdatum eintragen", "Startdatum")
datEnde = InputBox("Bitte Enddatum eintragen", "Enddatum")
ActiveSheet.Range("$A$1:$J$" & intFR).AutoFilter Field:=1, _
Criteria1:=">=" & datStart, Operator:=xlAnd, Criteria2:="=" & datEnde
...
Hiermit erreiche ich das die korrekten Werte in den Filter hinterlegt werden, sprich das Startdatum und Enddatum aus den InputBoxen werden korrekt übergeben, aber
der Filter wird nicht ausgeführt. Wenn ich mir in der Tabelle den Filter anschaue ist der wie gesagt korrekt gefüllt...wenn ich dann in dem unveränderten Filter nur auf "OK" klicke wird er auch ausgeführt...
...nur über das Makro funktioniert das nicht...
Mache ich da was falsch - bzw. fehlt da was?
Habe auch schon mit: AcitveSheet.AutoFilter.ApplyFilter ausprobiert - tut sich aber auch nix?
Vielen Dank für Eure Hilfe...leider kann ich keinen Upload machen...
Viele Grüße
Addi