Hallo zusammen,

ich habe folgendes Anliegen. Von mehreren Lieferanten habe ich verschiedene Angebote erhalten. Diese Angebote sind in einer von mir gestalteten Vorlage zugesandt worden, d.h. dass z.B. der Preis immer in der Zelle A30 steht. Nun möchte ich, dass mittels Makro nach einander alle Exceldateien in einem bestimmten Ordner durchlaufen werden und die jeweilig entsprechenden Zellen kopiert und in einer neuen Datei (datensammlung.xls) gespeichert wird.

Als Quellordner hatte ich auf dem Desktop den Ordner "sonstiges" mit der Datei "datenmappe.xls" erstellt.

Der Zielordner befindet sich auch auf dem Desktop mit dem Ordnername "sonstiges2" mit der Datei "datensammlung.xls".

Nun habe ich mittels Makrorecorder folgenden Makrocode aufgezeichnet:

Sub datensammeln2()
'
' datensammeln2 Makro
'

'
    ChDir "C:\Documents and Settings\z563164\Desktop\sonstiges"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\z563164\Desktop\sonstiges\datenmappe.xlsx"
    Selection.Copy
    Windows("datensammlung.xlsx").Activate
    Range("A2").Select
    ActiveSheet.Paste
    Range("B2").Select
    Windows("datenmappe.xlsx").Activate
    Application.CutCopyMode = False
    Range("B2").Select
    Selection.Copy
    Windows("datensammlung.xlsx").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Soweit funktioniert das Makro auch, jedoch möchte ich im Makro selber nur angeben, in welchem Ordner sich die Dateien befinden. Dann soll das Makro nacheinander alle Exceldateien öffnen und die jeweiligen Felder in die datensammlung.xls kopieren. Nach der letzten Datei soll er stoppen.

Wie muss ich das Makro entsprechend umschreiben, damit dies funktioniert?

Danke für eure Hilfe!

Tobi