Office: (Office 2007) Verschiedene Excel-Dateien in einer Arbeitsmappe als Excel-Sheets zusammenführen

Hallo,
gibt es ein Makro oder eine andere Möglichkeit, dass man verschiedene Excel-Dateien in einer Excel-Datei zusammenführt?
Hierbei sollen z.B. die einzelnen Dateien als extra-Sheet in einer Mappe dargestellt werden?
Beispiel ich habe folgende Dateien:
1.xls
2.xls
3.xls
4.xls
usw.

Kann man jetzt diese verschieden Excel-Dateien in einer darstellen, dabei soll die 1 dann 1 sheet sein, die 2 usw.???

Danke!!!!

:)

 

Hallo ilora,

Du kannst alle Blätter, ein bestimmtes, mehrere usw. aus einer Datei in eine andere kopieren, das ist kein Problem. Aber wie Du eine Mappe als ein Arbeitsblatt darstellen willst, ist mir unklar

Oder ist in jeder Mappe genau 1 Blatt, das kopiert werden soll?

Das müsstest Du bitte nochmal beschreiben, wie das gemeint ist.

Dann wäre noch wichtig, wo die Dateien stehen. Alle in einem Ordner? In Unterverzeichnissen? Oder muss jede mit anderem Pfad angesprochen werden?

Ergänzung:
Schau mal hier, vielleicht hilft Dir das schon weiter.
http://www.ms-office-forum.de/forum/...d.php?t=273529
/Ergänzung

Grüße
EarlFred

 

Guten Morgen,
also, es sind in einem Ordner XY verschiedene Excel-Dateien:
c:\eigene Dateien\xy\1.xls
c:\eigene Dateien\xy\2.xls
c:\eigene Dateien\xy\3.xls
usw.
Jetzt möchte ich davon aber aber alles in einer Excel-Datei dargestellt haben:
c:\eigene Dateien\xy\gesamt.xls dabei soll iner halb dieser Datei
- c:\eigene Dateien\xy\1.xls jetzt als Tabelle 1 in der Arbeitsmappe sein,
- c:\eigene Dateien\xy\2.xls Tabelle 2 usw.
Danke für Deine Vorschläge.
LG Ilora

 

Hallo Ilora,

OK, die Dateien, die ausgelesen werden sollen, befinden sich alle in einem Verzeichnis - damit wäre eine Frage ja erfolgreich beantwortet.

Eine DATEI (d. h. eine Excelmappe mit einer unterschiedlichen Anzahl an Tabellen = Blätter = Register = Reiter = Sheet, wie auch immer) kannst Du nicht als ein Blatt darstellen. Du kannst die enthaltenen Daten konsolidieren, über- / unter- / nebeneinander darstellen, aber nicht viele Blätter als ein Blatt.

Daher meine andere Frage: Wie viele Tabellen sind in den Dateien enthalten und welche davon sollen übernommen werden? So, wie Du es vorhast, geht es nur, wenn es genau eine Tabelle ist, die übernommen werden soll. Du kannst nicht eine Datei mit 15 Tabellen als eine Tabelle darstellen.

Grüße
EarlFred

 

Hallo,
in jeder einzelnen Datei ist eine Tabelle enthalten, genau diese Tabelle soll in der neuen Datei als Tabelle in einem Extra Sheet (1) dargestellt werden. Die nächste Datei soll dann in der neuen Datei als Sheet (2) dargestellt werden.

 

Hallo ilora,

dann probier mal:
Code:

Grüße
EarlFred

 

Hallo,
ich hatte die ursprüngliche Anfrage zwar nicht gestellt, bin aber gerade glücklich, dass ich diesen Hinweis gefunden habe. Bei mir funktioniert´s.
viele Grüße
slesch

 

Hallo,

wenn es nicht allzuviele Tabellen sind kann man sie einfach rüberziehen.
(Zwei Dateien öffen und einfach am Reiter ziehen.)

Wenn man die Originaldateien nicht verändern möchte kann man sich auch Bezüge auf die jeweilen Dateien erstellen.
( =wenn([c:\eigene Dateien\xy\1.xls]Tabelle1!A1"";[c:\eigene Dateien\xy\1.xls]Tabelle1!A1;"")

Grüße
o815michi

 

Hallo,

vielen Dank für den Tipp. Ich habe das gleich mal ausprobiert und bekomme aber eine Fehleremldung (siehe Anhang). Ich habe den Pfad wo die Dateien liegen richtig angegeben. Wenn ich mit "F8" durch den Code gehe, bekommt die Variable auch den Wert (dateiname der ersten Excel-Arbeitsmappe) zugewiesen. Komme ich zu dem Schritt "Set wb = Workbooks.Open(strDatnam)", poppt die Fehlermeldung auf.

Bitte um Hilfe, ich steh an.

 

Hallo,

da ist mir damals wohl ein Fehler unterlaufen. Mit Angabe des Pfades sollte es dann aber klappen:
Code:

Grüße
EarlFred