Mehrere Excel Dateien zu einer Gesamtdatei fügen

Computer: Software & Programmierung Office Software
1

Hallo nochmal,

gibt es ein Programm oder Funktion, mit der man stumpf aus mehreren Excel Dateien sämtliche mit Werten versehenen Zeilen in eine Gesamttabelle untereinander kopieren kann?

Sagen wir mal 3 Dateien:
Dat1 enthält 200 beschriebene Zeilen
Dat2 enthält 150 beschriebene Zeilen
Dat3 enthält 450 beschriebene Zeilen

daraus soll

Dat4 mit den 800 beschriebenen Zeilen der 3 anderen werden.

Danke schon mal!

2

Hallo Pole,

Wenn Die Dateien/Zeilen die gleiche Struktur haben, kannst Du doch einfach die Zeilen in der 2. und anschließend in der 3. Datei markieren, kopieren und in der ersten Datei einfügen.

Viel Erfolg
Ullrich Sander

3

gibt es ein Programm oder Funktion, mit der man stumpf aus
mehreren Excel Dateien sämtliche mit Werten versehenen Zeilen
in eine Gesamttabelle untereinander kopieren kann?
Sagen wir mal 3 Dateien:
Dat1 enthält 200 beschriebene Zeilen
Dat2 enthält 150 beschriebene Zeilen
Dat3 enthält 450 beschriebene Zeilen
daraus soll :smiley:at4 mit den 800 beschriebenen Zeilen der 3 anderen werden.

Hi Pole,
Alt+F11, Einfügen–Modul, Code reinkopieren, Editor schliessen
Aufrufen mit Extras–Makro–Makro…

Sub tt()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
dat = True
While dat = True
 dat = Application.GetOpenFilename("xls Files (\*.xls), \*.xls")
 Workbooks.Open dat
 zeiQuelle = Sheets(1).Range("a65536").End(xlUp).Row
 zeiZiel = ThisWorkbook.Sheets(1).Range("a65536").End(xlUp).Row
 Range(Rows(1), Rows(zeiQuelle)).Copy Destination:=ThisWorkbook.Sheets(1).Cells(zeiZiel, 1)
 ActiveWorkbook.Close SaveChanges:=False
Wend
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Gruß
Reinhard

4

Klappt super, vielen Dank!
Vielen Dank nochmal!