Sub leere_merkmale_loeschen()
Dim tab_f As Worksheet
Dim matakt As String
Dim schleifenende As Integer
Dim tol_plus_wert As String
Dim tol_minus_wert As String
Dim nm_wert As String
Application.ScreenUpdating = False
Worksheets("Beispieldatensatz").EnableCalculation = False
Application.EnableEvents = False
Set tab_f = Worksheets("Beispieldatensatz")
With tab_f
schleifenende = .Cells(3, 5).End(xlDown).Row
For i = schleifenende To 3 Step -1
matakt = .Cells(i, 5).Value
tol_plus_wert = .Cells(i, 6).Value
nm_wert = .Cells(i, 7).Value
tol_minus_wert = .Cells(i, 8).Value
Select Case matakt
Case Is = "Außendurchmesser", "Wandstärke", "Ovalität", "Exzentrizität"
Case Else
If (tol_plus_wert = "0" Or tol_plus_wert = "") And (nm_wert = "0" Or nm_wert = "") And (tol_minus_wert = "0" Or tol_minus_wert = "") Then
.Rows(i).EntireRow.Delete
End If
End Select
Next
End With
Application.EnableEvents = True
Application.ScreenUpdating = True
Worksheets("Beispieldatensatz").EnableCalculation = True
End Sub