17.06.2016, 13:29
(Dieser Beitrag wurde zuletzt bearbeitet: 17.06.2016, 14:05 von WillWissen.
Bearbeitungsgrund: Mikroschriftformatierung entfernt und Code in Tags gesetzt
)
Hallo zusammen,
ich habe folgendes "Problem". Ich habe ein Makro erstellt, welches in einem bestimmten Ordner in jeder Datei den Monat abändert. Der Code lautet wie folgt:
Dieser Code wiederholt sich 25-mal, für 25 verschiedene Länder. Ich glaube, dass man den Code smarter formulieren kann und vielleicht wird dadurch auch die Zeit reduziert. Aktuell läuft das Makro knapp 2 Minuten (Finde ich irgendwie relativ lang).
Ich bin für jede(n) Hilfe/ Tipp sehr dankbar :69:
Viele Grüße
ich habe folgendes "Problem". Ich habe ein Makro erstellt, welches in einem bestimmten Ordner in jeder Datei den Monat abändert. Der Code lautet wie folgt:
Code:
Workbooks.Open Filename:="C:\Desktop\Order 1\Deutschland_2016.xlsm"
Sheets("Control").Select
Windows("Monat.xlsm").Activate
Range("B4").Select
Selection.Copy
Windows("Deutschland_2016.xlsm").Activate
Sheets("Control").Select
Range("C6").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWorkbook.Close SaveChanges:=True
.
.
.
.
End Sub
Dieser Code wiederholt sich 25-mal, für 25 verschiedene Länder. Ich glaube, dass man den Code smarter formulieren kann und vielleicht wird dadurch auch die Zeit reduziert. Aktuell läuft das Makro knapp 2 Minuten (Finde ich irgendwie relativ lang).
Ich bin für jede(n) Hilfe/ Tipp sehr dankbar :69:
Viele Grüße