ich verzweifle aktuell am Aufsplitten einer Datei anhand einer Spalte. Ich versuche bei der beigefügten Datei eine monatsweise Aufteilung der Einträge nach Spalte E, also dem Datum der Zahlung. Die Angaben liegen wie in der Datei zu sehen als Angabe mit dem Format TTMMJJJJ vor. Ich löse dies bislang über den Filter in Zeile 1, wo ich aktuell "052021" eingebe um alle Werte mit Mai darin herauszufilter und diese dann auszuschneiden und in eine neue Datei einfügen.
Dim letzte As Long
letzte = Range("A2").End(xlDown).Row
Debug.Print letzte
Rows(1).Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$E$" & letzte).AutoFilter Field:=5, Criteria1:="=*062021", Operator:=xlAnd
ActiveSheet.Range("E2").CurrentRegion.SpecialCells(xlVisible).Copy
Workbooks.Add
ActiveSheet.Paste
Cells.AutoFilter
Rows(1).Select
Selection.AutoFilter
ActiveSheet.Range("$A$2:$E$" & letzte).AutoFilter Field:=5, Criteria1:="=*052021", Operator:=xlAnd
ActiveSheet.Range("E2").CurrentRegion.SpecialCells(xlVisible).Copy
Workbooks.Add
ActiveSheet.Paste
Cells.AutoFilter
Leider funktioniert es nicht sauber wenn ich dem Filter "052021" als Wert mitgebe. Da es bei händischer Eingabe allerdings funktioniert habe ich es mir im Makro-Recorder angesehen: Hier gibt er jedes verfügbare Datum das "052021" enthält als eigenen Filtereintrag, daher funktioniert das Filtern bei händischer Eingabe. Wie gelingt mir das mit einem Makro? Ich hatte es über eine Schleife versucht für jeden Tag die jeweilige Zahl in der oben genannten Schreibweise zu erstellen und alles in einen Filter einzubauen, dies hatte jedoch mangels Erfahrung nicht funktioniert.Filter Für Mai-Daten
ActiveSheet.Range("$A$1:$E$126").AutoFilter Field:=5, Criteria1:=Array( _
"12052021", "17052021", "18052021", "19052021", "20052021", "21052021", "22052021", _
"25052021", "26052021", "27052021", "28052021", "29052021", "30052021", "31052021", _
"5052021", "7052021"), Operator:=xlFilterValues
Filter Für Juni-Daten
ActiveSheet.Range("$A$1:$E$126").AutoFilter Field:=5, Criteria1:="1062021"
https://www.herber.de/bbs/user/147175.xlsx