Thema: Fehler abfangen, wenn eine Arbeitsmappe nicht geöffnet ist

StandardModule: basMain

Sub FehlerAbfangen()
   Dim wkb As Workbook
   Dim sFile As String
   sFile = ThisWorkbook.Path & "\test1.xls"
   On Error Resume Next
   Set wkb = Workbooks("Test.xls")
   If Err > 0 Or wkb Is Nothing Then
      If Dir(sFile) = "" Then
         MsgBox "Die Testdatei " & sFile & " existiert nicht!"
         Exit Sub
      Else
         Set wkb = Workbooks.Open(sFile)
      End If
   End If
   Application.Goto wkb.Worksheets(1).Range("D12")
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Verknüpfung