Gruppe
Ereignis
Bereich
Open
Thema
Fehler in Workbook_Open-Prozedur abfangen
Problem
Wie kann ich verhindern, daß die Workbook_Open-Prozedur abbricht, wenn eine zu ladende Arbeitsmappe nicht gefunden wird?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul der Arbeitsmappe ein.
ClassModule: DieseArbeitsmappe
Private Sub Workbook_Open()
Dim sFile As String
sFile = ThisWorkbook.Path & "\test.xls"
If Dir(sFile) = "" Then
MsgBox "Kann Datei '" & sFile & "' nicht finden -" _
& vbLf & "bitte manuell laden!"
Else
Workbooks.Open sFile
MsgBox "Bitte Eintragung vornehmen!"
End If
End Sub