Hallo majoplinka,

leider nicht ganz verständlich, ob Du nun einen VBA-Code suchst oder ob eine Formel reicht. NAchfolgend mal beides.

Kopiere den Code in das VBA-Projekt des Tabellenblattes, indem er wirken soll.
Teste den Code aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.

[b]Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A1").Text = "#NV" Or _
Range("A1").Text = "#DIV/0!" Then _
Range("B1") = ""
End Sub[/b]

Hier wird bei Änderung im Tabellenblatt ausgewertet, ob in A1 eine der Kriterien vorkommen. Wenn ja, wird der Wert aus B1 gelöscht.

Als Formel für Zelle B1 würde das wie folgt aussehen:

=WENN(ISTFEHLER(A1);"";A1)

Hier wird, wenn in Zelle A1 ein Fehler in der Berechnung eintritt, in der Zelle B1 nichts angezeigt. Wenn kein Fehler, wird der Wert aus A1 angezeigt.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}