Clever-Excel-Forum

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:

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

Hallöchen,

zeitlich gesehen wirst Du mit einer codeänderung nichts gut machen. Problem ist das Öffnen, Speichern und Schließen der Dateien.

Gekürzt könnte Dein Code so aussehen, wenn er in der Datei "Monat" steht.

Code:
Sub test()

Workbooks.Open Filename:="C:\Desktop\Order 1\Deutschland_2016.xlsm"

ActiveWorkbook.Sheets("control").Range("C6").Value = ThisWorkbook.Sheets("control").Range("B4").Value

ActiveWorkbook.Close SaveChanges:=True

End Sub

Goleo

schauan