Office: (Office 2013) Mehrere Excel Dateien zu einer zusammenführen

Hallo,

Ich habe ca. 90 Excel Dateien, die alle eine Tabelle mit genau den selben Bezeichnungen enthalten (Material, Werk, Bezeichnung, Stückzahl,...). Nun möchte ich diese 90 Dateien zu einer zusammenführen und verwende folgendes Makro:


Sub Zusammenfuehren()
Dim strVerzeichnis As String
Dim strTyp As String
Dim strDateiname As String
Dim lngZeile As Long
strTyp = "*.xlsx*"
Application.ScreenUpdating = False
strVerzeichnis = ThisWorkbook.Worksheets("Sheet1").Range("A1")
'

:)

 

Gibt es denn in der aktuellen Datei das Tabellenblatt "Sheet1"?

 

Oh...nein. Hier lautete die Bezeichnung "Tabelle1". Dies habe ich geändert.

Nun kommt aber in der selben Zeile folgende Fehlermeldung:
Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler

 

Kannst du mir hier auch noch weiterhelfen?

 

Versuch mal

Code:

Ansonsten weiß ich es aus dem Stegreif auch nicht. Müsstest mal die Datei hochladen.

 

Hola,

zur Info:

http://www.vba-forum.de/forum/View.a...Zusammenfassen

Gruß,
steve1da

 

oder hat es was damit zu tun, dass es xlsx dateien sind?

Makro lässt sich jetzt vollständig ausführen, aber es passiert leider garnichts *frown.gif*

 

Hallo, das war auch ich. Nur da konnte leider auch keiner helfen

 

Da du scheinbar mit VBA nicht sehr bewandert bist, empfehle ich dir die Verwendung von Power Query. Dies ist ein sehr mächtiges Tool in Excel, welches deine Aufgabe ruckzuck erledigt, ohne irgendwelche Programmierkenntnisse.

Da hast du eine sehr gute Anleitung, wie du vorgehst: http://www.sqlxpert.de/mehrere-excel...wer-query-1-3/