Makro für ganze Arbeitsmappe ertüchtigen

Sub ISTFEHLER_EINTRAGEN()
Dim cel As Range
Dim rng As Range
Dim Check As String
' Anpassung der Formel evt. erforderlich.
Const Equ As String = "=IF(ISERROR(_x) ,""0"", _x)"
Worksheets("Tabelle1").Select
Check = Left$(Equ, 12) & "*"                          ' Check for =IF(ISERROR(
On Error Resume Next
Set rng = Selection.SpecialCells(xlFormulas, 23)
If rng Is Nothing Then Exit Sub
With WorksheetFunction
For Each cel In rng
If Not cel.Formula Like Check Then
cel.Formula = .Substitute(Equ, "_x", Mid$(cel.Formula, 2))
End If
Next
End With
On Error GoTo 0
End Sub