Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Bewerten Sie hier bitte das Excel-Portal
Home Zurück Vor
Download Beispiel-Arbeitsmappe

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

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

Msg mit 2 Ereignissen +Cancel
Workbooks open
Ereignisprozedur
Excel-Tabelle in OpenOrg
getopenfilename mit Teil der Dateiname
Makro für ereignisabh. Druck verschiedener Seiten
Benutzerdefinierte Funktion in Open Office
UF Activate / Initialize Ereignis
Namen definiert- in Ereignis verwenden?
GetOpenFilename Dateiname vorbelegen
xlDialogOpen anpassen
Symbolleisten durchloopen: löschen & restore
Zeilen aus- einblenden als Ereignis?
Welches Ereignis ist das richtige ??
Symbolleisten durchloopen und ausblenden
Ereignis Arbeitsblatt sperren abfangen
Workbook open
Ereignisprozedur f. Multipage-Reiter
Frage zum Change ereignis
xlDialogOpen bei Excel 2007 funzt nicht
komisches phänomän bei set xx open workbook
Change-Ereignis in Combobox unterdrücken
Combobox Ereignis
MS OFFICE - OPEN OFFICE
Userform, Ereignis deklarieren im Klassenmodul
Welches Diagramm-Ereignis?
Bestimmtes Ereignis in Spalte zählen
Command Button Ereignis
Workbook Open
Ereignis von Laufzeit-Checkbox
Wochenangabe bei WorkbookOpen
change-ereignis bei dynamischen Controls / Teil 2
Change Ereignis verhindern
change-ereignis bei dynamisch erstellten Controls
Schaltfläche - Ereignis erst nach Bestätigung ausl
Makro Workbook_Open läuft nicht
Objekt_Error - Ereignis in UserForm
Problem mit OpenRecordset (Array)
bei OPEN macros vermeiden
Workbook_open
change ereigniss auf userform.
Click-Ereignis für Checlbox nicht ausführen?
windows.open und selection.change
workbooks.open Fehlermeldung
Speichern einer Kopie durch Ereigniss Workbook_bef
Reagieren auf Tastaturereignisse
Workbooks.OpenText - Datumsformat
Ausnahmen für Exit-Ereignis
Probleme mit Workboos.Open