Hallo zusammen,

Ich versuche aktuell ein Tabellenblatt aus einer dynamischen Quelldatein in eine Zieldatei zu kopieren.

Dazu verwende ich aktuell den folgenden Code:

Sub Update_Data2()

Application.ScreenUpdating = False
Application.EnableEvents = False

Dim QWB As Workbook, ZWB As Workbook, DatName As String
DatName = Application.GetOpenFilename
Workbooks.Open (DatName)
Set QWB = Workbooks(DatName)
Set ZWB = ThisWorkbook
Dim QWS As Worksheet, ZWS As Worksheet
Set QWS = QWB.Worksheets("RIS Overview")   ' Quelle
Set ZWS = ZWB.Worksheets("RIS Overview")    ' Ziel

    QWS.Cells.Copy ZWS.Cells(1, 1)      ' Inhalt in Ziel-Tabelle einfügen
    Workbooks(DatName).Close

Application.EnableEvents = True
End Sub

In der Zeile:          Set QWB = Workbooks(DatName)         wird mir aber immer der Laufzeitfehler 9 mit dem Hinweis <Index ausserhalb des gültigen Bereichs" angezeigt.

Hier komme ich einfach nicht weiter, kann jemand helfen? Sicherlich bin ich einfach nur zu blind, um das Problem zu erkennen.

Danke schonmal!