=wenn(istfehler(... /

Sub abc()
'  WennFehler Selection, """nix"""  ' für "nix"
'  WennFehler Selection, """"""     ' für ""
WennFehler Selection, 0          ' für 0
End Sub

Sub WennFehler(rngBer As Range, strErg As String)
Dim rngC As Range, strFml As String
For Each rngC In rngBer
If rngC.HasFormula And IsError(rngC) Then
strFml = Right$(rngC.Formula, Len(rngC.Formula) - 1)
rngC.Formula = "=IF(ISERROR(" & strFml & ")," & _
strErg & "," & strFml & ")"
End If
Next rngC
End Sub