Hallo Ich habe folgenden Code:

Sub OeffneDateiFM()
Dim X As Double
Dim laufvar As Double
laufvar = 6
X = 1
Dim Quelle As Object, Ziel As Object
Dim Datei As String

Datei = Application.GetOpenFilename()

    'Datei öffnen
        Workbooks.Open Filename:=Datei
        Set Quelle = ActiveWorkbook.Worksheets(1)
        Set Ziel = ThisWorkbook.Worksheets(1)

    'kopieren und einfügen
               
        Do While Worksheets("SB_RM").Cells(laufvar, 2) <> "Summe"
        laufvar = laufvar + 1
        Loop
        laufvar = laufvar - 1

        Worksheets("SB_RM").Range(Cells(6, 2), Cells(laufvar, 2)).Copy
        Windows("161018_Austaktungstool Layout_mM.xlsm").Activate
        Worksheets("Prozessdatenbank FM").Cells(3, X).Select
        ActiveSheet.Paste
        
        X = X + 1
        Application.Workbooks("Datei").Activate
       Worksheets("SB_RM").Range(Cells(6, 6), Cells(laufvar, 6)).Copy
        Windows("161018_Austaktungstool Layout_mM.xlsm").Activate
        Worksheets("Prozessdatenbank FM").Cells(3, X).Select

Was ich möchte ist, dass ich eine Datei1 öffnen kann, indem ich diese auswähle. Dann kopiert mein Makro den Inhalt und fügt es in die andere Datei2 ein. Jetzt soll die Datei1 wieder aktiviert werden, um dort die eine andere Spalte zu kopieren und wieder in Datei2 zu kopieren. Das klappt aber leider nicht. Ich habe die relevante Zeile mal fett gemacht. Wie greife ich vernünftig auf die Datei zu? Die Datei1 kann dabei einen variablen Namen haben, sodass ich es nicht über einen festen Namen machen kann. Stattdessen soll er einfach die Datei, die oben einmalig übers Fenster ausgewählt wurde benutzen.

Vielen Dank schonmal!

Tom