ich habe ein Makro, mit welchem ich aus 26 Tabellen jeweils 12 Zeilen heraus kopiere. Im Moment habe ich es so gemacht, das ich jede Tabellen nacheinander öffne, auslese und schließe. Die Namen der Dateien stehen in der Tabelle wohin die Daten kopiert werden sollen in einem separate Tabellenblatt. Da ich noch ziemlich am Anfang meines VBA wissens stehe habe daher einen Coder der "viel zu lang" und deshalb auch nur sehr schwer zu pflegen ist. In den 26 Tabellen stehen die Informationen immer an der selben stelle, in der Tabelle wo die Daten hin sollen an 12 verschiedenen aber pro Land immer untereinander so wie die Länder ausgelesen werden.
Ich würde gern diesen Code in eine schleife stecken, sodass ich nur einen habe der dann einfach 26 mal durchlaufen wird. Wie könnte so etwas aussehen. Hier ist der Code den ich habe für ein Land:
Application.DisplayAlerts = False
'******Vietnam*****
Windows("Monatsbericht_Vans_auslesen.xls").Activate
Sheets("Schalter").Select
Workbooks.Open Range("d67").Value 'hier steht der Pfad für das Land drinn darunter dann noch 25 Pfade Application.AskToUpdateLinks = False
'**********************
'Order m1
Sheets("expectation").Select
Range("e245:p245").Select ' hier stehen die ersten Daten drinn
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("ce67").Select 'an diese Stelle werden die ersten Daten kopiert für das nächste Land dann in ce68
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Order m2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e246:p246").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("cr67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Order l1
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e240:p240").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("de67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Order l2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e247:p247").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("dr67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Retail m1
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e100:p100").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("ee67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Retail m2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e101:p101").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("er67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Retail l1
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e95:p95").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("fe67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Retail l2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e102:p102").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("fr67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Group Sale m1
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e85:p85").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("ge67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Group Sale m2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e86:p86").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("gr67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Group Sale l1
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e80:p80").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("he67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
'Group Sale l2
Windows("Vietnam.xls").Activate
Sheets("expectation").Select
Range("e87:p87").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Monatsbericht_Vans_auslesen.xls").Activate
ActiveWindow.WindowState = xlMaximized
Sheets("Auslese_Datei").Select
Range("hr67").Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'*************************
Windows("Vietnam.xls").Activate
ActiveWorkbook.Close
Application.CutCopyMode = False
Wäre super wenn mir da jemand helfen könnte, Das würde mir den Pflege Aufwand sehr erleichtern.
Vielen Dank
Jens