Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Bonn", _
Operator:=xlOr, Criteria2:="=Bonn"
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
For i = 10 To 21
With Worksheets("Verteiler_Vorlage")
.Visible = True
.Copy After:=Sheets(Sheets.Count)
.Visible = False
End With
NEXT
Else
Application.ScreenUpdating = False
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Berlin", _
Operator:=xlOr, Criteria2:="=Berlin"
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
For i = 10 To 21
With Worksheets("Verteiler_Vorlage")
.Visible = True
.Copy After:=Sheets(Sheets.Count)
.Visible = False
End With
NEXT
With Worksheets("Master")
.Range("A:AAA").AutoFilter Field:=9, Criteria1:="=Augsburg"
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
For i = 17 To 19
With Worksheets("Verteiler_Vorlage")
.Visible = True
.Copy After:=Sheets(Sheets.Count)
.Visible = False
End With
Also nochmal:
Wenn Filter 1 Daten dann laufen, Dann Filter 2 wenn Daten dann laufen dann Filter 3 laufen
Wenn Filter 1 LEER dann Filter 2 Daten dann laufen dann Filter 3 laufen
Wenn Filter 1 Daten dann Laufen wenn filter 2 Leer dann Filter 3 laufen.
Filter 3 hat zu 99% immer Daten
Und Filter 1 und Filter 2 können Daten haben 1 davon immer.
Wie schon erwähnt wenn alle Filter Daten haben läuft das prima.
Es spiest sich nur wenn einer der beiden Filter 1 oder Filter 2 keine Daten haben dann läuft Filter 3 nicht.
In der jetzigen Reihenfolge läuft Filter 3 nicht wenn Filter 2 keine Daten hat.
Gruß
Thomas und vielen Dank