Public Sub aaa()
Dim raZelle As Range, raLöschen As Range
With Worksheets("Tabelle3")
.Range("A1") = "Isolationswiderstand"
.Range("A2:A157").FormulaR1C1 = "=VALUE(Tabelle1!RC23)"
For Each raZelle In .Range("A2:A157")
If raZelle.HasFormula Then
raZelle.Formula = Application.ConvertFormula(raZelle.Formula, xlA1, , xlAbsolute)
End If
If raZelle = 0 Then
If raLöschen Is Nothing Then
Set raLöschen = raZelle
Else
Set raLöschen = Union(raLöschen, raZelle)
End If
End If
Next
If Not raLöschen Is Nothing Then
raLöschen.EntireRow.Delete
End If
End With
Set raLöschen = Nothing
End Sub