#Nv abfangen per VBA
30.09.2005 19:13:09
Cordula
in D6 habe ich einen SVerweis, in E9 trage ich eine Artikel-Nummer ein. Findet die Verweis-Funktion den Artikel nicht, erscheint #NV. Nun möchte ich, dass, wenn in D6 ein #NV erscheint, Excel mir die Mappe "Stammdaten" öffnet.
Mit Hilfe von Sepp -aus diesem Forum- habe ich mir nun folgendes zusammen gebastelt (nochmals Danke an Sepp)
' Modul: Wechsel zur DB1_Eingabemaske, wenn Fehler #NV
' **********************************************************************
Private Sub Worksheet_Calculate()
If IsError([D6]) Then
On Error GoTo ErrExit
Workbooks.Open Filename:=("C:\Test\Stammdaten")
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
ErrExit:
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End If
End Sub
Nun das Problem: Wenn #NV erscheint, wird zwar die Mappe "Stammdaten" geöffnet, aber gleichzeitig mit der Meldung .....Mappe ist bereits geöffnet, wenn wieder geöffnet, gehen Daten verloren.....
Ich komme dann nur noch übe den Task-Manager raus.
Wo liegt der Fehler?
Wäre super, wenn ihr mir helfen könntet.
Vielen Dank schon mal
LG
Cordula