Makro "Datei Öffnen, kopieren, Datei schließen, einfüge"

Question

Hallo VBA-Leute,
ich habe ein kleines Problem mit einem Makro, welches ich selbst “aufgezeichnet“ habe.
So sieht es aus:

Sub Test()
Workbooks.Open Filename:= _
"\\Info06\daten\Center\03 Kosten\04 Controlling - Cost Accounting\07_Reports (Monat)\01_Test\Vorlagen\(Gesellschaft)_RCD_009_Personal CO_JJJJMM.xlsm"
Range("E18:E25").Select
Selection.Copy
Windows( _
"(Gesellschaft)_RCD_002_Personal CO final_JJJJMM.xlsm") _
.Activate
Range("B8").Select
ActiveSheet.Paste
Windows("(Gesellschaft)_RCD_009_Personal CO_JJJJMM.xlsm ").Activate
ActiveWindow.Close
End Sub

Bei der Aufzeichnung gab es kein Problem, doch beim Testen später doch.
Es wurde lediglich die Datei:
(Gesellschaft)_RCD_009_Personal CO_JJJJMM.xlsm
geöffnet, mehr nicht. Kein Kopieren, kein hinzufügen, kein schließen.
Habt ihr eine Idee, woran es liegt?

Vielleicht hat einer von Euch eine sauberere Lösung?

Danke im Voraus.

Max

Answer 1

Hallo Nighty,

Vielen Dank für Deine Bemühungen,
ich habe es hinbekommen, auch wenn anders.
So sieht der Quelltext aus:

Sub Copy()
Sheets("Daten").Select
Range("B2").Select
Selection.Copy
Workbooks.Open Filename:= _
"\\Info06\daten\Center\03 Kosten\04 Controlling - Cost Accounting\07_Reports (Monat)\01_Test\Vorlagen\(Gesellschaft)_RCD_009_Personal CO_JJJJMM.xlsx "
Worksheets("Personalkosten").Activate
Range("O1").Activate
ActiveSheet.Paste
Range("B1:L10000").Select
Selection.Copy
ActiveWorkbook.Close
Range("B8").Activate
ActiveSheet.Paste
End Sub

Dennoch könntest Du mir helfen eine kleine Sache einzubauen:
Ich möchte nicht nur die Werte, sondern auch die Formate im Tabellenblatt Personalkosten einfügen.
Hast Du eine Idee?
Ich habe verschiedene Varianten ausprobiert, klappt aber bei mir nicht :-/

Im Voraus vielen Dank
Grüße
Max