Hallo liebe Excel-Gemeinde,

ich habe folgendes Problem:

bei diesem Code kommt immer nach dem Öffnen der ersten Datei "Index außerhalb des gültigen Bereiches"

Ich habe schon geprüft, ob es am Dateinamen liegt, dem ist aber nicht so.

Habt ihr vielleicht noch einenen schlauen Hinweis?

Vielen Dank im Voraus

gruß

Sascha

Sub CopyData()
Dim strPath$
On Error GoTo ErrorHandler:
With Application
    .ScreenUpdating = False
    .EnableEvents = False
   
    'Datei1
    strPath = "D:\Users\xxxx\Desktop\Test\01_Datei.xlsx"
    With Workbooks.Open(strPath, ReadOnly:=True, Password:="Passwort!", WriteResPassword:="Passwort")
        .Sheets(2).Range("C15:J15").Copy
          ThisWorkbook.Sheets("Test").Range("B3").PasteSpecial Paste:=xlValues
        .Close False
    End With

   'Datei2

    strPath = "D:\Users\xxxx\Desktop\Test\02_Datei.xlsx"
    With Workbooks.Open(strPath, ReadOnly:=True, Password:="Passwort!", WriteResPassword:="Passwort")
        .Sheets(2).Range("C15:J15").Copy
          ThisWorkbook.Sheets("Test").Range("B4").PasteSpecial Paste:=xlValues
        .Close False
   End With
   
    .EnableEvents = True
    .ScreenUpdating = True
End With

Exit Sub

ErrorHandler:
With Application
    .ScreenUpdating = True
    .EnableEvents = True
End With
MsgBox Err.Description, _
       vbCritical + vbMsgBoxSetForeground + vbMsgBoxHelpButton, _
       "Error: " & Err.Number, Err.HelpFile, Err.HelpContext
End Sub