Hi zusammen....

man stelle sich eine exceldatei vor. In Spalte A befindet sich ein Dateiname (mit oder ohne Pfad völlig egal)
und zwar einer in zeile 1 einer in zeile 11 einer in zeile 21 etc.. also immer mit 10 zeilen abstand...

Das ganze 8 mal... dann habe ich diese 8 Dateien...

Darin befindet sich jeweils ein Tabellenblatt mit dem Namen Budget Comparison

auf diesem sheet befinden sich im Bereich A1:CZ10 die Daten die ich nun in der Übersichtsdatei brauche...

Also was ich Suche ist ein Makro, mit dem ich die Einzelfiles öffnen kann, dort diesen Bereich kopiere und jeweils im Übersichtsblatt in den bereich B1:DA10, B11:DA20 etc kopieren.

Geht da was? Habe hier nen Makro gefunden und auch mal versucht das umzuschreiben aber irgendwie hab ichs nicht auf die Reihe bekommen. Anbei trotzdem auch mal das Makro.
Vielen Dank für eure Hilfe.

Viele Grüße Philipp

Option Explicit

Sub daten_holen()
Dim rngC As Range, rngBer As Range
Dim strFile As String, strPfad As String
Set rngBer = Range("A8:A" & Cells(Rows.Count, 1).End(xlUp).Row)
Application.ScreenUpdating = False
For Each rngC In rngBer
strPfad = "C:\" & Range("A" & rngC.Row).Value & " -Finale.xls"
strFile = Range("A" & rngC.Row).Value & " -Finale.xls"
Workbooks.Open Filename:=strPfad
Range("C11:C20").Copy
Windows("Übersicht.xls").Activate
Range("CG" & rngC.Row).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Range("A" & rngC.Row).Select
Workbooks(strFile).Close
Next
Application.ScreenUpdating = True
End Sub