.
.
.
Case 2
Application.Calculation = xlCalculationManual
Rows("15:300").Select
Selection.Delete Shift:=xlUp
Sheets("Dateneingabe").Activate
For Z1 = Cells(1000, 1).End(xlUp).Row To 1 Step -1
If Cells(Z1, 94) = "Verzug" And Cells(Z1, 67) < "18" Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 1)
Range(Cells(Z1, 57), Cells(Z1, 59)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 5)
Range(Cells(Z1, 94), Cells(Z1, 98)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 8)
Z2 = Z2 + 1
ElseIf Cells(Z1, 94) = "Ausschluss" And Cells(Z1, 67) < "18" Then
Range(Cells(Z1, 1), Cells(Z1, 4)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 1)
Range(Cells(Z1, 57), Cells(Z1, 59)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 5)
Range(Cells(Z1, 94), Cells(Z1, 98)).Copy Destination:=Sheets("VerzugListe").Cells(Z2, 8)
Z2 = Z2 + 1
End If
Next Z1
.
.
.
Danke schonmal im voraus
Gruß Gottschi