Dim tab_f As Worksheet
Dim matakt As String
Set tab_f = Worksheets("Beispieldatensatz")
With tab_f
For i = .Cells(3, 5).End(xlDown).Row To 3 Step -1
matakt = .Cells(i, 5).Value
Select Case matakt
Case Is = "Außendurchmesser" Or "Wandstärke" Or "Ovalität" Or "Exzentrizität"
Case Else
If .Cells(i, 6).Value = 0 Or .Cells(i, 6).Value = "" Then
If .Cells(i, 7).Value = 0 Or .Cells(i, 7).Value = "" Then
If .Cells(i, 8).Value = 0 Or .Cells(i, 8).Value = "" Then
.Rows(i).EntireRow.Delete
End If
End If
End If
End Select
Next
End With
End Function