' löscht aus spalte 5 alle vertriebsgebiete mit 78
Dim w As Long
Application.ScreenUpdating = False
For w = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(w, 5) = "78" Then Rows(w).Delete
Next w
Application.ScreenUpdating = True
' löscht aus spalte 5 alle vertriebsgebiete mit 77
Dim e As Long
Application.ScreenUpdating = False
For e = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(e, 5) = "77" Then Rows(e).Delete
Next e
Application.ScreenUpdating = True
' löscht aus spalte 5 alle vertriebsgebiete mit 76
Dim r As Long
Application.ScreenUpdating = False
For r = Cells(Rows.Count, 5).End(xlUp).Row To 1 Step -1
If Cells(r, 5) = "76" Then Rows(r).Delete
Next r
Application.ScreenUpdating = True