formule icm vba

[ronsom]

goedenavond,

ik heb een tabblad met allerlei functies. nu wil ik de als.fout formule gebruiken.
maar om alle functies na te gaan lopen wordt erg fout gevoelig.
is het mogelijk d.m.v van VBA ervoor te zorgen dat in `1keer voor alle functies de als.fout functie staat.

vriendelijke groet,

Ronsom

 

[jkpieterse]

Zo iets?

Sub AlsFoutOmAlles()
    Dim oCell As Range
    Dim sFormula As String
    For Each oCell In Selection
        sFormula = oCell.Formula
        sFormula = Right(sFormula, Len(sFormula) - 1)
        sFormula = "IFERROR(" & sFormula & ","""")"
        oCell.Formula = "=" & sFormula
    Next
End Sub

 

[snb]

Sub M_snb()
   For Each it In Cells.SpecialCells(-4123)
      it.Value = Replace("=Iferror(~,"""")", "~", Mid(it.Formula, 2))
   Next
End Sub

 

[E v R]

Als al jouw formules, IFERROR nodig hebben, raad ik je toch eens aan om die formules eens onder de loep te nemen.

 

[Emil S]

Hoi snb,

Welke eigenschap heeft de "~"?

groet emil

 

[ronsom]

Top, precies wat ik bedoelde.
Hartelijke dank!!!!