ich habe folgendes Problem in einer Private Sub Worksheet_Change(ByVal Target As Range) VBA Anwendung.
Sobald wird was in Zelle B5 geschrieben wird, wird in Zelle I5 durch diesen Befehl eine Formel geschrieben
Target.Offset(0, 7).FormulaR1C1 = "=IF(ISBLANK(RC[-7]),"""",(VLOOKUP(RC[-7],[Preise.xls]EP!C1:C7,7,0)))"
Wenn der Wert in Zelle I5 "0" ist soll die Formel gelöscht werden.
Das mache ich mir einer normalen IF Bedingung
If Range("I5") = 0 Then
Range("I5").ClearContents
End If
Wenn aber den Wert, der in B5 geschrieben wird nicht gibt kommt in die Zelle I5 "#NV" und der Debuggmodus wird mir Laufzeitfehler 13 gestartet.
Kann mir jemand helfen wie ich das Abfangen kann?
mfg
hans