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 ' J bis U
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 ' J bis U
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 ' Q bis S
With Worksheets("Verteiler_Vorlage")
.Visible = True
.Copy After:=Sheets(Sheets.Count)
.Visible = False
End With
Also ich haber hier den ersten Filter dann läuft der Code und erstellt mir einzelne Sheets, dann kommt der 2 Filter der erstellt wieder Sheets, und dann der 3 Filter, und wieder werden Sheets erstellt.
Nun soll das aber so ablaufen, das Wenn Filter 1 Daten Code laufen + Filter 3 wenn Filter 1 keine Daten dann Filter 2 und Filter 3, wenn Filter 1 und 2 Daten haben dann nur 1x 3.
Wenn alle Daten vorhanden funktioniert das prima, aber wenn Filter 1 oder 2 Leer sind dann funktioniert das mit Filter 3 nicht richtig.
Vielen Dank
Gruß
Thomas
|