13.08.2018, 15:50
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
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
wenn es das ist. wo der Code drin steht.