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
|