Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Monat in 25 Datein abändern
#1
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
Antworten Top
#2
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Goleo
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste