Verknuepfung soll nicht aktualisiert werden

[FR-CGI]

Okay, habe ich gemacht.
aber wenn ich erst die files oeffnen lasse und dann soll er mit dem bisherigen code weiterlaufen (also copy paste Spalte einfuegen etc.) muss ich ihm doch sagen dass er wieder auf das urpsuenglich workbook soll, wo er die Operation ausfuehren soll.
da hackt es aber bei Windows("EU_DailyRep._workversionEurope_toUSE_Try&Error_Advanced1.xlsm"). _Activate

Code:

Sub MakroX()
'
' MakroX Makro
'
' Tastenkombination: Strg+Umschalt+Z
'
   Workbooks.Open Filename:="\\Comanpy\Company\\corporate treasury\Daily Reporting Receipts & Disbursement_TestNotYetInUse\BEL_Masterfile.xlsm", Password:="BellaRussie"
   Workbooks.Open Filename:="\\Company\Company\\corporate treasury\Daily Reporting Receipts & Disbursement_TestNotYetInUse\ES_Masterfile.xlsm", Password:="Navarra1512"
   Windows("EU_DailyRep._workversionEurope_toUSE_Try&Error_Advanced1.xlsm"). _
       Activate
   Sheets("Masterfile_TotalEurope").Select
   Columns("D:D").Select
   Sheets(Array("Masterfile_TotalEurope", "BE", "NL", "AT", "DE", "FR", "DB", "ES", "PT", _
       "PL", "BEL", "IT", "HY", "UK", "RU", "NORDICS")).Select
   Sheets("Masterfile_TotalEurope").Activate
   Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
   Columns("C:C").Select
   Selection.Copy
   Columns("D:D").Select
   ActiveSheet.Paste
   ActiveWindow.SmallScroll Down:=36
   Range("D47:D62").Select
   Application.CutCopyMode = False
   Selection.Copy
   Range("D47").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
       :=False, Transpose:=False
   Application.CutCopyMode = False
   Sheets("Masterfile_TotalEurope").Select
   ActiveWorkbook.Save
End Sub

[schauan]

Hallöchen,

ja, das müsstest Du. Wegen eventueller Syntaxfehler würde ich den Code mal aufzeichnen.
Kannst es aber auch mit
ThisWorkbook.Activate
versuchen wenn es das ist. wo der Code drin steht.

[FR-CGI]

Super!
ThisWorkbook.activate funktioniert.

Danke