VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Fehler in Workbook_Open-Prozedur abfangen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Open