Office: VBA - Zwei Tabellen anhand ID zusammenfügen

Hallo zusammen,

ich habe folgendes Problem:
Es gibt eine „Mutterliste“ mit Bezeichnungen, ID und Status. Die „Kinderlisten“ haben in unterschiedlicher Reihenfolge die selben IDs aber unterschiedliche Status. Alle Listen sind in unterschiedlichen Tabellenblättern.

Ich möchte ein Makro, der folgendes kann:
1. neues Tabellenblatt erstellen
2. die „Mutterliste“ in dieses neue Tabellenblatt kopieren (Alle Spalten und Zeilen)
3. jeweils die Kinderlisten als zusätzliche Spalten hinzufügen aber die Zeile ID-Mutter und ID-Kind muss übereinstimmen.

Also zusammenführen von mehreren Tabellenblättern aber in den Zeilen müssen die IDs übereinstimmen. Es kann sein, dass manche Status leer sind.
Wenn es manche Kinder die ID aus der Mutterliste nicht haben soll ein minus (-) hinzugefügt werden in dieser Zeile.

Kann mir jemand mit einem Code helfen?

vielen Dank im Voraus
LG
WinG

 

Warum VB. Benutze Zählenwenn().
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.

Das ist nur meine Meinung zu dem Thema.

 

Hallo Hajo_Zi,

VB, da ich dachte es ist zu Komplex für Formel.
Du hast natürlich völlig recht, daher habe ich eine Beispieldatei erstellt, da die Originaldaten sehr sensible Daten enthält.
Das Original hat ca. 1000 Zeilen.

In der Beispieldatei habe ich ein Tabellenblatt "Vergleich" hinzugefügt. So sollte es zum Schluss aussehen.
Wenn die Mutter eine ID hat aber die Kinder nicht, soll die Zeile leer bleiben.

Vielen Dank im Voraus
VG
WinG

 

Bei einer excel version > 2010 würde ich das immer mit PowerQuery machen.
(3) How Power Query Will Change the Way You Use Excel - YouTube

Pan

 

ich bin dann raus, da meine Beitrag nicht komplett gelesen wurde.
Das wird schon seinen Grund haben.
Ich schreibe nicht für den Papierkorn. Ich bin dann raus.
Viel Erfolg noch.

Gruß Hajo

 

Hallo,

ich habe in deiner Datei im Arbeitsblatt "Vergleich" eine (zweite strukturierte) Tabelle "tbMutterMitKindern" eingefügt. Sie ist die Ergebnistabelle, die aus den 5 strukturierten Tabellen "tbMutter", "tbKind1",..., "Kind4" mit Hilfe von Abfragenzusammenführungen in PowerQuery gebildet wurde.

Die Unterschiede zur roten Vergleichstabelle ergeben sich aufgrund der Differenzen der ID-Felder der Kind-Tabellen zu den ID-s in der Mutter-Tabelle. Korrigiert man die ID-Felder der Kind-Tabellen und aktualisiert die Ergebnistabelle, müssten sich die Differenzen beseitigen.

Die Ergebnistabelle wird durch Rechtsklick in die Tabelle mit anschließender Auswahl des Befehls "Aktualisieren" aktualisiert.

 

Hallo,

vielen Dank für die Hilfe. Ich kenne mich mit PowerQuery leider überhaupt nicht aus und konnte es auch nicht nachvollziehen, was passiert ist. Am WE fuchse ich mich da mal genauer rein.

Vielen Dank und viele Grüße

 

Hallo zusammen,

vielen lieben Dank für eure Hilfe.
Ich habe in meiner Mittagspause mich mit PowerQuery auseinandergesetzt und mein gewünschtes Ergebnis erzielt.

Vielen Dank für den Tipp.
Viele Grüße
WinG