Sub blatt_nach_Filter_erzeugen()
Dim i As Integer
Dim ende As Long
Application.ScreenUpdating = False
With Worksheets(1)
ende = .Cells(Rows.Count, 23).End(xlUp).Row
For i = 1 To 6
If i < 5 Then
.Range("$A$1:$W$" & ende).AutoFilter Field:=23, Criteria1:="=*A*", Operator:=xlOr, Criteria2:="=*B*"
Else
.Range("$A$1:$W$" & ende).AutoFilter Field:=23, Criteria1:="=*C*"
End If
Worksheets.Add After:=Sheets(Sheets.Count)
.UsedRange.Range("A:D").Copy ActiveSheet.Cells(1)
.UsedRange.Columns(i + 7).Copy ActiveSheet.Cells(1, 5)
ActiveSheet.Name = ActiveSheet.Cells(1, 5)
If i > 4 Then ActiveSheet.Name = ActiveSheet.Name + "C"
Next i
.Range("$A$1:$W$" & ende).AutoFilter
End With
Application.ScreenUpdating = True
End Sub