Office: (Office 2010) Mehrere Excel Dateien in ein Tabellenblatt zusammenführen

Hello zusammen!

Da ich leider für mein Problem über Google keine Lösung finden konnte, wende ich mich vertrauensvoll an euch... :)

Meine Arbeitskollegen und ich möchten gerne jeweils eine Datei haben, in der wir unsere Aufträge übers Jahr + Zusatzinfos eintragen können.
Damit wir nicht immer auf einer Liste stehen und somit nur einer bearbeiten kann, möchten wir gerne jeweils eine Datei und zur Datenauswertung soll das dann gesammelt in einer weiteren Datei zusammengefasst werden.
Die Listen sind alle exakt gleich, sollen also wirklich nur zusammengeführt werden.

Also in folgendem Stil:

Mappe1 - Tabelle1
Mappe2 - Tabelle1
Mappe3 - Tabelle1

soll dann zusammengefasst werden in

Mappe_gesamt - Tabelle1

Ich hänge euch ein Bild an als Beispiel. Ich hoffe jemand von euch kann mir helfen - ist irgendwie ziemlich tricky find ich.



Danke!!!

LG Patrick

 

Hola,

und was ist genau die Frage?

Gruß,
steve1da

 

Ach du Schande, sorry ^^

Natürlich ist meine Frage, wie ich das am besten löse?
VBA? Oder gibt es da eine Funktion in Excel?

 

Hola,

das soll also immer automatisiert laufen, so dass immer die aktuellen Daten untereinander stehen - quasi eine Live-Zusammenfassung?

Wenn ja, ist das wohl nur mit VBA zu realisieren, leider nicht mein Gebiet.

Gruß,
steve1da

 

Ja genau, so sollte das laufen.
Ok trotzdem vielen Dank! :)

LG

 

Moin,
das geht gewiss auch mit Power Query -> http://www.excel-ist-sexy.de/power-query-das-add-in/ aber leider ist auch dieses sehr leistungsfähige Tool nicht in der Lage, aus Bildchen verwertbare Daten zu machen.

 

Hello Captain,

danke für die Rückmeldung, hast natürlich recht. Ich kann dir gerne die Dateien schicken - liegen im Anhang.
Das wäre echt super, wenn du mir zumindest einen Lösungsansatz machen könntest. Irgendwie steh ich nämlich ziemlich an...

Den Anhang Auftragsliste_gesammelt.xlsx betrachten
Den Anhang Auftragsliste_Patrick.xlsx betrachten
Den Anhang Auftragsliste_Vici.xlsx betrachten

Danke!!

LG

 

OK, das eine oder andere wirst du dir erarbeiten müssen, aber auch ich habe es per leraning by doing gelernt ...
In Stichworten, wie ich zum Ziel gelangt bin:
Die beiden Tabellen mit den beiden Leerzeilen oben importieren
In jeder Abfrage:
* 1. Spalte Column1: Filtern -> ohne Nullwerte
* Erste Zeile als Überschrift verwenden
* Abfrage umbenennen
---------
Beispielsweise Patrick: Verwalten -> Duplizieren
Kombinieren - Abfragen anfügen (also Vici)
Fertig


Bei geänderten Basisdaten: Abfrage Aktualisieren

 

Hey Günther,

erstmal vielen Dank für deine Bemühungen! :)

Ich hab nur eine Frage: In deinem Beispiel hast du die einzelnen Benutzer als Tabellenblätter eingefügt und holst sie im Gesamtblatt rein.
Das ist noch schlüssig. Aber ich bräuchte es ja so, dass jeder Benutzer seine eigene Arbeitsmappe, also eine eigene Excel-Datei, hat. Die liegt dann zwar im selben Ordner wie die anderen, aber wir müssen jeweils eine Datei machen, weil ich sonst dauernd auf der Datei von Vici stehe und ich sie dann immer anrufen muss, dass sie die Datei schließt wenn ich was ändern will.

Und das verkompliziert die Sache etwas glaub ich. Wenn ich nämlich die Daten jeweils aus einer anderen Datei holen muss, geht das nicht so leicht, als wenn ich sie über Tabellenblätter im selben Dokument hole oder?

LG

 

Also ich hab mich jetzt nochmal intensiv damit befasst und mit Hilfe von Google auf eine Lösung gekommen, die mir gefällt und funktioniert.

Also in Excel Alt+F11 und das einfügen:

Code:

Public Sub MergeAggregate()

    Const FOLDER_PATH = "C:\Users\..." 'Pfad anpassen

    Dim strFilename As String
    Dim objTargetWorksheet As Worksheet
    Dim objSourceWorkbook As Workbook

    Application.ScreenUpdating = False

    'Active Tabelle
    Set objTargetWorksheet = ActiveSheet

    'erste Datei suchen
    strFilename = Dir$(FOLDER_PATH & "*.xlsx")

    Do Until strFilename = vbNullString

        'Öffnet eine Datei
        Set objSourceWorkbook = Workbooks.Open(Filename:=FOLDER_PATH & strFilename)

        'Kopiert von den Zeilen 4 bis zum Ende
        With objSourceWorkbook.ActiveSheet

            .Range(.Cells(4, 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 14)).Copy

        End With

             'in die aktive Mappe und fügt sie jeweils unten an
        With objTargetWorksheet

            .Paste Destination:=.Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0)

        End With

        Application.CutCopyMode = False ' !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

        'Schliesst die geöffnete Datei
        Call objSourceWorkbook.Close(SaveChanges:=False)

        'lese den nächsten Dateinamen
        strFilename = Dir$()

        Set objSourceWorkbook = Nothing

    Loop

    Set objTargetWorksheet = Nothing

    Application.ScreenUpdating = True

End Sub

Da meine Datei mit den ganzen Zeilenüberschriften erst ab der 4. Zeile interessant wird und 13 Spalten zu kopieren sind hab ich noch hier auf 4 bzw. 14 geändert:

Code:

 .Range(.Cells([B]4[/B], 1), .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, [B]14[/B])).Copy

Wichtig ist auch, dass hierbei sämtliche zusammenzuführenden Dateien im selben Ordner liegen. (und Dateiendung *.xlsx)

Damit auch alles super easy läuft, hab ich noch eine Schaltfläche per Entwicklertools dazugefügt und das Makro da drauf gelegt. Ein Klick und es läuft. ;)

Ich hab mir gedacht, vielleicht hilft es ja jemandem.....

Beste Grüße

Patrick

P.S. Danke für die Hilfe hier!!