Hallo,
Die Ausführung meines Makros will nicht so richtig. Es funktioniert eigentlich alles soweit, d.h. das Datum wird eingegrenzt (bspw. betrachte nur die Einträge von 01.10.2020 bis 31.12.2020) aber der Filter wird nicht ausgeführt. Man muss quasi manuell nochmal in den Filter rein und mit OK bestätigen, dies will ich natürlich nicht. Die drei Bilder erklären das Problem am besten.
1.) https://ibb.co/2N6zbqx
2.) https://ibb.co/k90NGC9
3.) https://ibb.co/Bfs1vxy
Code:
Sub Filtern()
Dim Datum1 As Variant, Datum2 As Variant
Dim Anzahlzeichen As Long
Datum1 = Sheets("Eingabe").Cells(5, 3).Value
Datum2 = Sheets("Eingabe").Cells(5, 4).Value
ThisWorkbook.Worksheets("V03").Activate
Anzahlzeichen = Application.WorksheetFunction.CountA(Range("A:A"))
Rows("1:1").Select
Selection.AutoFilter
'ActiveSheet.Range("$A$1:$BY$" & Anzahlzeichen).AutoFilter Field:=3, Criteria1:= _
Datum1, Operator:=xlAnd, Criteria2:=Datum2
End Sub
|