Dateien zusammenführen

[Norbert Gellert]

Hej zusammen,

ich habe in einem Ordner 50 Excel Dateien mit verschieden Namen &
jeweils einem Tabellenblatt.

Alle Dateien sollen jetzt in eine neue Excel-Datei zusammengeführt
werden - als Blattname jeweils der ursprüngliche Dateiname.
Wie bekomme ich das schnell und einfach hin ?

Alles öffnen & die Blätter einzeln zu kopieren / verschieben und sie
dann auch noch umzubenennen treibt mich in den Wahnsinn...

Bin leider kein König der VBA, damit geht´s wahrscheinlich !?

Danke für Unterstützung
Norbert

[Ullrich Schwarz]

Hallo Norbert,

versuche es mal mit der folgende Proz:

Sub a()
Dim Datei, d
Dim wbErgebnis As Workbook
Dim wbQuell As Workbook
Datei = Application.GetOpenFilename( _
filefilter:=("Exceldateien (*.xls), *.xls"), _
Title:="zu importierende Dateien markieren", _
MultiSelect:=True)
If Not IsArray(Datei) Then
If Datei = False Then Exit Sub
Else
Set wbErgebnis = Application.Workbooks.Add
For d = 1 To UBound(Datei)
Set wbQuell = Application.Workbooks.Open _
(Filename:=Datei(d), ReadOnly:=True)
wbQuell.Sheets(1).Copy after:= _
wbErgebnis.Sheets(wbErgebnis.Sheets.Count)
wbErgebnis.Sheets(wbErgebnis.Sheets.Count).Name = _
Left(wbQuell.Name, Len(wbQuell.Name) - 4)
wbQuell.Close savechanges:=False
Next
End If
End Sub

--
MfG Ullrich
- Excel 2000 -

"Norbert Gellert" <norg...@gmx.net> schrieb im Newsbeitrag
news:1126987559....@f14g2000cwb.googlegroups.com...

[Norbert Gellert]

Hallo Ullrich,

ganz vielen herzlichen Dank - hat perfekt geklappt !
Führt wohl mittelfristig doch kein Weg daran vorbei, mich mit VBA
intensiver auseinanderzusetzen *seufz*.

MFG - Norbert