Gruppe
Datei
Problem
Wie kann ich eine Fehlermeldung abfangen, wenn ich eine Arbeitsmappe anspreche, die nicht geöffnet ist? In diesem Fall soll sie geöffnet werden.
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