Meine komplexe Tabelle beinhaltet viele Formeln (ca 96000).
Alle #DIV/!0 habe ich schon mit der entsprechenden Formel abgefangen.
Alle Formeln sollen nun ergänzt werden mit =WENN(ISTFEHLER)
Im Falle eines Fehlers soll NIX ("") angezeigt werden.
Nun habe ich folgende Anweisung gefunden die mir als geeignet erscheint:
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
Das Problem ist, daß ich so etwas noch nie gemacht habe.
Wer kann mir hier weiterhelfen ?
Besten Dank im Voraus.
Herzlichen Gruß
Karlo