Alle Formeln mit WENN (ISTFEHLER) erweitern

Sub MachWas()
Set FormulaCells = ActiveSheet.UsedRange.SpecialCells(xlFormulas, 23)
For Each Zelle In FormulaCells
f = Zelle.FormulaR1C1
If InStr(f, "ISERROR") = 0 Then
Formel = Mid(f, 2, Len(f))
Zelle.FormulaR1C1 = "=IF(ISERROR(" & Formel & "), _""***""," & Formel & ")"
End If
Next Zelle
For Each Zelle In ActiveSheet.UsedRange
If Not Zelle.HasFormula And Zelle.Text  "" And Zelle.Value  0 Then _ Zelle.NumberFormat = "* _
_
Next Zelle
End Sub