Office: (Office 2010) Mehrere Dateien auf eine Datei zusammenfassen

Hallo,

ich habe mehrere Excel Dateien und die würde ich gerne auf eine Datei zusammenfassen. Eine Datei hat mehrere Spalten / Adressen.
Kann mir wer dabei behilflich sein?

Danke
Alexander

Ich habe Excel 2010 und 2013
Mir wäre 2010 lieber :-)

:)

 

Copy&Paste (Kopieren und Einfügen) ist Dir unbekannt?

 

So war das nicht gemeint.

Es sind mehrere ( ca. 120 Stück ) Excel Dokumente in einen Ordner.
Und aus diesen 120 Dokumenten möchte ich eines machen wo der Inhalt der 120 zusammengefasst wurden. Der Inhalt der einzelnen Dokumente sind mehrere Spalten / Adressen. Namen, Straße, PLZ, Ort usw.

Ich hoffe ich habe es jetzt besser erklärt. :-)

 

Kopieren und einfügen dauert ewig. :-)

Das ganze sollte schnell mit einem Befehl gehen.
Importieren, Zusammenführen oder so.

 

Hallo,

gibt es so eine Funktion?
Wäre super wenn ich hier eine Antwort erhalten könnte.

Danke

Ps wo sind die Profis :-)

 

Ich wäre schon froh über eine Ja geht, oder nein geht nicht Antwort.
Aber von jemanden der sich auch wirklich auskennt. :-)

 

Hi,
lad mal eine Mustermappe hoch.
Sind alle Exceldokumente gleich aufgebaut?

Gruß Carsten

 

Hallo Carsten
im Prinzip ja es kann sein das eine oder 2 Spalten bei manchen mehr vorhanden sind.

Da ich kein Profi bin :-) gleich einmal eine Frage
Kann Excel mehrere Dokumente auf ein Dokument zusammenführen?
Do Ähnlich wie ein PDF Programm wo ich mehrere Dokumente auf ein PDF Dokument Zusammenführen kann.

Danke für die Info

 

ich weiß nicht wie ich hier was hochladen kann

Peinlich :-)

 

Hallo Alexander.

probier das mal. Habe ich aus dem Internet.

Code in eine Excelmappe kopieren und im gleichen Ordner speichern, in dem auch die übrigen Dateien gespeichert sind.

Option Explicit
Sub zusammenfuegen()
Dim strDateiname As String
Dim wksZiel As Worksheet, wkbQuelle As Workbook, wksQuelle As Worksheet
Dim loLetzte1 As Long
Dim loLetzte2 As Long
Dim inLetzte As Integer
Application.ScreenUpdating = False
strDateiname = Dir(ThisWorkbook.Path & "\*.xls")
Set wksZiel = ThisWorkbook.Worksheets("Tabelle1")
Do While strDateiname ""
If strDateiname ThisWorkbook.Name Then
Set wkbQuelle = Workbooks.Open(Filename:=ThisWorkbook.Path & "\" & strDateiname)
Set wksQuelle = ActiveSheet 'ggf. = wkbQuelle.Worksheets(1)

loLetzte1 = wksZiel.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With wksQuelle
loLetzte2 = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
inLetzte = .UsedRange.SpecialCells(xlCellTypeLastCell).Column
.Range(.Cells(3, 1), .Cells(loLetzte2, inLetzte)).Copy _
Destination:=wksZiel.Cells(loLetzte1 + 1, 1)
End With

wkbQuelle.Close True
End If
strDateiname = Dir
Loop
Set wkbQuelle = Nothing: Set wksQuelle = Nothing: Set wksZiel = Nothing
Application.ScreenUpdating = True
End Sub

Servus, Walter

 

Hallo Walter,

ich nehme den Text und kopiere ihn in die erste Spalte?
Hast du das so gemeint?
Es passiert da leider gar nichts.

danke
Alexander

Bin wirklich nur ein "brutaler" Anwender. :-)

 

Hi Alexander,
das ist ein Makro. Den Code fügst du folgendermaßen ein

1. Erstellen einer Excel-Mappe und als "Exceldatei mit Makros speichern"
2. Tastenkombination "ALT+F11"
3. dann gehst du im neu geöffneten Fenster auf "Einfügen" und fügst ein "Modul" ein (Im Strukturbaum links wird das automatisch als Modul1 benannt)
4. Darein den geposteten Code einfügen
5. und dann einfach "F5" oder den grünen "Startbutton" aus der Symbolleiste
6. Dateien müssten zusammengefügt werden

Habe den Code nicht wirklich angeschaut. Ist nur die allgemeine Vorgehensweise *wink.gif*

Gruß Carsten

 

Hallo,

es hat sich etwas getan, aber leider ist alles leer.
Kannst du dir das genauer ansehen und so einstellen das er alle Dokumente von einen Ordner nimmt egal wie viele es sind?

Ich habe auch kein Problem etwas dafür zu bezahlen, wenn das dann super funktioniert. :-)

Danke im voraus

Alexander

 

Hi Alexander,

einfach die Datei runterladen. In den Ordner deiner Dateien rein. Datei öffnen. makros aktivieren. Button klicken.

Sollte das nicht funktionieren weiß ich auch nicht, da der Code bei mir super funktioniert

Gruß Carsten

 

Hallo,

ja hat einmal funktioniert und dann leider folgende Fehlermeldung:

OLE-Fehler 800A01A8

weißt du was das bedeutet?