Zellen aus verschiedenen Dateien in Mappe Kopieren
mex
Ich habe folgendes Problem:
Ich habe einen Ordner mit vielen Excel Dateien, aus denen ich jeweils nur ein paar Zellen kopieren und in die aktuelle mappe einfügen möchte. Mein Versuch war der folgende:
Sub Makro1()
Dim Pfad As String
Dim Dateiname As String
Dim Blatt As String
Pfad = "C:\"
Blatt = "Blatt1"
Dateiname = Dir(Pfad & "*.xls")
Do While Dateiname ""
Workbooks.Open Pfad & Dateiname
Range("C39:J65").Select
Selection.Copy
Windows("Mappe1.xlsm").Activate
Range("A1").Select
ActiveSheet.Paste
Workbooks.Close Pfad & Dateiname
Dateiname = Dir()
Loop
End Sub
Fehler beim Kompilieren:
Falsche Anzahl an argumenten oder ungültige Zuweisung zu einer Eigenschaft
Hat jemand ne Idee was da falsch läuft?
Anzeige