fehlermeldungen per makro unterdrücken
19.09.2008 08:49:00
herbi
hab folgendes Problem.
Habe eine Exceldatei zur Überarbeitung bekommen in der zahlreiche Verknüpfungen und Formeln über verschiedenste Tabellenblätter hinweg vorhanden sind.
In der Datei ist alles richtig, nur ist extrem störend, dass nicht funktionierende Formeln eine Fehlermeldung anzeigen.
Meine Beispiel Original-Formel ist: =Price!F21
Ich wüsste ja auch im Prinzip, dass ich dies über eine wenn ISTFEHLER Abfrage umgehen kann, z.b. mit
=WENN(ISTFEHLER(Price!F21);"";Price!F21)
Was ich aber nicht hinbekomme ist ein Makro, welches mir diese Änderung für alle markierten Zellen eines Arbeitsblattes auf einmal macht.
Aus meinen rudimentären Kenntnissen habe ich mir das gebastelt:
Sub FehlerEliminate()
With Selection
X = Right(ActiveCell.Formula, Len(ActiveCell.Formula) - 1)
ActiveCell.Formula = "=IF(ISERROR(" & X & "),," & X & ")"
End With
End Sub
Läuft aber a) nicht über alle markierten Zellen sondern nur mit der ersten und
b) in der Zelle steht immer ne Null aber nicht nix.
Hat jemand einen Rat?