Gruppe
Ereignis
Problem
Wie kann ich verhindern, daß die Workbook_Open-Prozedur abbricht, wenn eine zu ladende Arbeitsmappe nicht gefunden wird?
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