ich versuche mit folgenden Programmzeilen eine Fehlermeldung abzufangen, leider funktioniert das nicht.
Kann mir jemand helfen ?
Pfad = ActiveWorkbook.Path
Workbooks.Open Filename:=Pfad & "\" & Materialliste
On Error GoTo ErrorHandler
ErrorHandler:
MsgBox ("stellen Sie sicher, daß sich in dem Verzeichnis aus dem Sie " _
& vbCr _
& " die Positionsbezogene Materialliste geöffnet habe, sich die Datei" _
& vbCr _
& " mit dem Namen Materialliste befindet")
Exit Sub