Office: (Office 2013) Tabellen untereinander kopieren mit unterschiedlichen Spalten

Hallo,

ich möchte gerne aus zwei Tabellen eine Mastertabelle erstellen. Dazu suche ich ein Makro,
mit dem die Daten untereinander kopiert werden.Das Problem ist aber dabei, dass ich zwei unterschiedliche Tabellen habe,
was die Spaltenanzahl und Information in der Spalte angeht (siehe Anhang).
Es müsste eine Masterttabelle erstellt werden, die erst die Daten aus der ersten Tabelle (AV) reinkopiert und dann die zweite Tabelle (BE) an die erste anhängt und dabei aber die Kennzahlen der zweiten Tabelle in neue Spalten kopiert!

1.Tabelle:

Category Abteilung Segment Schuhtyp Untergruppe Saison Struktur Kz. unveränd. akt. J Vertriebslinie AV BU Umsatz Brutto 1.VK PM RG Umsatz Netto KER Umsatz Brutto EK AAAV


2.Tabelle:

Category Abteilung Segment Schuhtyp Untergruppe Saison Struktur Kz. unveränd. akt. J Vertriebslinie BEGesamt BE1VK BEVK BEEK BEausg AABE RGBE PMBE


Mastertabelle:


Category Abteilung Segment Schuhtyp Untergruppe Saison Struktur Kz. unveränd. akt. J Vertriebslinie AV BU Umsatz Brutto 1.VK PM RG Umsatz Netto KER Umsatz Brutto EK AAAV BEGesamt BE1VK BEVK BEEK BEausg AABE RGBE PMBE

Könnte man dazu das folgende Makro so umbau, dass ich diese beiden Tabellen untereinander kopiere?? Code:

Gruß

Jojo

:)

 

Hallo,
so sollte es gehen

 

Hallo Armin,

vielen Dank für die Lösung. Es funktioniert super!!

Ich hätte noch eine Frage. Könnte man auch jeweils den Tabellennamen in der Spalte A der Mastertabelle ausgeben??

Gruß

Jojo

 

Hi golochim,

hier meine Lösung zu Deinem Problem.

Füge den Code in ein Modul ein:

Code:

Funktioniert mit beliebig vielen Blättern. Nur, das Sammelblatt muss "Master" heissen.

Die erste Spalte hat den Blattnamen der kopierten Zeile.

Die Überschriften müssen in Zeile 1 stehen.

Es werden so viele Zeilen pro Blatt übertragen, wie in der Spalte "Category" vorkommen. Ist also die letzte Zeile ohne Eintrag in "Category" , wird sie nicht kopiert. Was aber wahrscheinlich ohnehin nicht vorkommt.

Armins Code arbeitet um ca. 3 Sekunden schneller bei 20.000 Zeilen.

Habe dafür drei Stunden benötigt. Würde gerne wissen, ob das andere schneller schaffen und wie lange. Ich halte mich für langsam, weiss es aber nicht. Hat trotzdem Spass gemacht.

LG,
Barbara

 

Hallo Barbara,

vielen Dank für diese geniale Lösung.
Es funktioniert super. So wie ich es brauche!!!

Aber das Problem ist, das jetzt alle Tabellen, die in der Arbeitsmappe vorhanden sind, zusammengeführt werden. Könnte man das ganze nur auf bestimmte Tabellen der Arbeitsmappe begrenzen?? z. B. die einen Bestimmten Namen haben!

Sonst ist die Lösung super und wird auch super schnell ausgeführt!!


LG

Jojo

 

Die Auswahl der Arbeitsblätter erfolgt in dieser Zeile:
If wsBlatt.Name .Name Then

was soviel bedeutet, wie
Wenn der Blattname ("wsBlatt.Name"), der gerade dran ist nicht übereinstimmt (" ") mit dem Namen (".Name") des Blattes "Master", dann ("then") führe Folgendes aus.

Hier kannst Du weitere Ausschlüsse einfügen. Oder nur die gewünschten Blätter, wie es in Deinem Beispiel der Fall ist, wählen. So, zB.
If wsBlatt.Name = "AV" OR wsBlatt.Name = "BE" Then

Oder Du willst nur Blätter mit einem bestimmten Anfang betrachten. Dann so:
If wsBlatt.Name Like "Anfang*" Then

Oder Du wählst die Form wie in Deinem mitgerbrachten Makro.

Freut mich, dass Du nun eine Lösung hast, wie Du sie brauchst.

LG, B

 

Hi,

vielen Dank für diesen Hinweis. Es funktioniert super!!!

LG

Jojo