Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Fehler in Workbook_Open-Prozedur abfangen

Gruppe

Open

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