Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: mehrere Excel-Dateien Zusammenfügen

mehrere Excel-Dateien Zusammenfügen
02.09.2015 19:29:19
Dimitri
Hallo Zusammen
Bin auf der Suche nach einer Möglichkeit, mehrere Excel-Dateien welche nur ein Datenblatt enthalten, in eine neue Excel-Datei zusammenzuführen. Das Problem ist aber, das die einzelnen Datenblätter den Namen der Excel-Datei erhalten sollen damit diese beim Zusammenlegen unterschieden werden können. Es handelt sich hier um ca. 90 Dateien.
Gibt es dafür eine Lösung?
Vielen Dank für Eure Hilfe

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Excel-Dateien Zusammenfügen
03.09.2015 03:59:49
fcs
Hallo Dimiti,
hier ein passendes Makro
Gruß
Franz
Public Sub Tabelle_1_holen()
'1. Tabellenblatt aus mehreren Arbeitsmappen in die aktive Mappe kopieren
Dim strDatnam As Variant
Dim wb As Workbook, wbZiel As Workbook
Dim ws As Worksheet
Dim i As Integer
Dim j As Integer
Dim Anzahl As Long
Set wbZiel = ActiveWorkbook
strDatnam = Application.GetOpenFilename("Datei (*.xls*),*.xls*", False, _
"Bitte gewünschte Datei(en) markieren ", False, True)
If Not IsArray(strDatnam) Then Exit Sub
Set wbZiel = ActiveWorkbook
Application.ScreenUpdating = False
For i = LBound(strDatnam) To UBound(strDatnam)
Set wb = Workbooks.Open(strDatnam(i), ReadOnly:=True)
Set ws = wb.Worksheets(1)
With wbZiel
ws.Copy After:=.Sheets(.Sheets.Count)
.Sheets(.Sheets.Count).Name = Left(wb.Name, InStrRev(wb.Name, ".") - 1)
End With
wb.Close savechanges:=False
Next
Application.ScreenUpdating = True
Set ws = Nothing
Set wb = Nothing: Set wbZiel = Nothing
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige