Tabellen zusammenführen gleiche Überschrift

[elamigo]

Moin Leute,

ich hätte gerne eine Möglichkeit mehrere Excel Dateien zusammenzuführen. Die Dateien haben unterschiedliche Namen, welche keiner Logik folgen. Unterschiedliche Tabellenblattnamen. 
Was gleich ist sind die Spalten überschriften ca. 80 Stück. Wie kann ich nun diese Dateien in eine Tabelle zusammenführen. Powerquery habe ich schon aber durchblicke ich nicht direkt. In anderen Foren habe ich nur den Code gefunden, für ein Makro, allerdings bringt mir dieser nichts. 

Code:

Sub Test()
Dim Mappe As String
Const Pfad = "E:\Test\Test\"
Mappe = Dir(Pfad & "Tag*.xls")
Do While Mappe <> ""
Workbooks.Open Pfad & Mappe, UpdateLinks:=0
Workbooks(Mappe).Sheets("Tabelle1").UsedRange.Offset(2, 0).Copy _
ThisWorkbook.Sheets(1).Range("A65536").End(xlUp).Offset(1, 0)
Workbooks(Mappe).Close SaveChanges:=False
Mappe = Dir
Loop
End Sub

[shift-del]

Powerquery habe ich schon aber durchblicke ich nicht direkt.

Es gibt zahlreiche Tutorials in Schrift und als Video.

[elamigo]

Okay alles klar danke, dann schau ich mal ob ich ein passendes finde 

[MisterBurns]

http://lmgtfy.com/?q=power+query+mehrere...%C3%BChren

[elamigo]

haha gute Seite. Allerdings ist jeder Hyperlink schon lila, ich hab wohl schon selbst gesucht. Allerdings war bis jetzt nichts dabei. Okay ich habe auch eher gehofft das einer von euch etwas direkt parat hat. googlen mach ich dann schon selbst :)

[MisterBurns]

Anhand deiner Beschreibung ist zB das hier exakt was du suchst. Falls es das nicht ist, ist deine Beschreibung falsch.

[elamigo]

Alles klar danke ich schaue es mir genau an und gebe Feedback! 

[elamigo]

Bekomme diesen Fehler wenn ich die Daten kombinieren möchte. Bekannt? Es gibt das Tabellenblatt "Tabelle2"...

[Jockel]

Hallo, bei mir geht's...

[shift-del]

Bekomme diesen Fehler wenn ich die Daten kombinieren möchte. Bekannt? Es gibt das Tabellenblatt "Tabelle2"...

Es geht in der Fehlermeldung auch nicht um das Tabellenblatt sondern um die Excel-Tabelle.