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