Habe jetzt folgendes Sub versucht. Klappt aber nicht.
Der fehler liegt in der If Zeile, aber leider weiss ich nicht wo!
Falls jemand eine Idee hat würde ich mich freuen.
Marc
Sub fehlerwert_test()
Dim r As Variant
r = 2
Sheets("Lieferantenauswertung").Select
If [AI8].Errors.Parent.Text = "#WERT!" Then MsgBox r
End Sub