Test

Here is my question:


...

my code:

Code:

---

Sub file()

On Error GoTo ErrorHandler

    pfad = ActiveWorkbook.Path & "\test.xls"
   
    Workbooks.Open ActiveWorkbook.Path & "\test.xls", ReadOnly = False
   
    Workbooks("test.xls").Worksheets("sheet1").Activate
   
    MsgBox "test.xls geöffnet", vbOKOnly
    ....
   
    Workbooks("test.xls").Close SaveChanges = False
   
    Workbooks("testbook.xls").Worksheets("sheet1").Activate
 
Exit Sub
ErrorHandler:

    MsgBox "Es ist ein Fehler aufgetreten. Fehler-Nr.: " & Err & vbCrLf & _
    Error(Err), vbOKOnly
   
End Sub

---