ich sitz mal wieder an vba und bekomm etwas nicht so hin wie ich gern möchte...
ich will einen Datensatz nacheinander jeweils nach einem Kriterium filtern (11,12 und 14) die gefilterten Daten dann kopieren und in ein neues Tabellenblatt einfügen
Und evtl. könnt ihr mir auch gleich noch einen Ansatz für das geben was dann noch mit rein soll^^ und zwar sollen die Tabellenblätter dann noch umgenannt werden mit bspw. A, B & C --> dafür hab ich bisher leider noch keine Idee wie das gehen soll
Mein Ansatz bisher:
Sub DatenFilter()
Dim Gesamt As Worksheet
Set Gesamt = ActiveWorkbook.ActiveSheet
i = Array("11", "12", "14")
For Each Item In i
Gesamt.Range("A:AI").AutoFilter Field:=23, Criteria1:=i
Gesamt.Range("A1:AI" & ActiveSheet.UsedRange.Rows.Count).SpecialCells(xlCellTypeVisible).Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.CutCopyMode = False
Next
End Sub
Hoffe ihr könnt mir weiterhelfen und das mein Ansatz nicht völlig falsch ist.
Grüße Matthias