Hallo Zusammen, 

ich versuche schon länger folgendes Problem mit einem Makro zu lösen. 

Ich möchte eine Datei öffnen, aus dieser Datei mehrere Sheets kopieren und in eine neue Datei als Values einfügen. Ich habe hier mal ein Makro aufgenomme wie es ungefähr aussehen könnte, da ist nur das problem, dass die Datei variable sein soll und das bekomme ich über makro aufnahme ja nicht hin.

    Windows("Datei name").Activate
    Sheets("Kalk-Cl5").Select
    Cells.Select
    Selection.copy
    Windows("EH 5.1.xlsm").Activate
    Sheets("Cl 5").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Datei name").Activate
    Sheets("Kalk-Cl8").Select
    Cells.Select
    Selection.copy
    Windows("EH 5.1.xlsm").Activate
    Sheets("Cl 8").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Datei name").Activate
    Sheets("Kalk-Cl10").Select
    Cells.Select
    Selection.copy
    Windows("EH 5.1.xlsm").Activate
    Sheets("Cl 10").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

kann mir da jemand weiter helfen ? 

Schon mal vielen dank.

Gruß Arthek