Thema: Prüfung, ob Datei existiert und bei nein Meldung

StandardModule: basMain

Sub MappeOeffnen()
   Dim wkb As Workbook
   Dim sFile As String, sPath As String
   sFile = Range("B1").Value
   sPath = Range("B2").Value
   If Right(sPath, 1) <> "\" Then
      sPath = sPath & "\"
   End If
   On Error Resume Next
   Set wkb = Workbooks(sFile)
   If Err > 0 Or wkb Is Nothing Then
      Err.Clear
      If Dir(sPath & sFile) = "" Then
         MsgBox "Die Datei wurde nicht gefunden!"
      Else
         Workbooks.Open sPath & sFile
      End If
   Else
      wkb.Activate
   End If
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Name