Daten aus anderen Excel-Sheets kopieren

[wertistwert]

Guten Morgen Sabina,

das mit dem Code über zwei Zeilen war lediglich dafür, um es besser darstellen zu können. Habe die Antwort per Handy verfasst.

Ich habe den kompletten Code kopiert und folgendes Angepasst:



Ordner1 = "C:\1\" ' <-- anpassen
Ordner2 = "C:\2\" ' <-- anpassen


For i = 1 To 4
    ChDrive "C:"   ' <-- anpassen


Ordner1 = "C:\Users\David\Documents\Test\Vorkalkulation"
Ordner2 = "C:\Users\David\Documents\Test\Nachkalkulation"

und das bei ChDrive habe ich auf "C:\Users\David\Documents\Test" angepasst.
Und dann habe ich noch die worksheetsbezeichnung geändert. Man muss nämlich zuerst von Worksheet 2 die Daten kopieren und dann von Worksheet 1.
Sprich ich habe nur die Zahlen in der Klammer ausgetauscht.



LG
David