Zwei Tabellen zusammenführen die 2.
08.03.2022 09:37:24
Thomas
Uwe und Chris haben sich gestern ja schon meines ersten Problems bei der Zusammenführung angenommen...
https://www.herber.de/forum/messages/1874215.html
Die dort beschriebene zusammengeführte Tabelle wird in Verbindung mit der hier...
http://www.excel-ist-sexy.de/seriendruck-mehrere-etiketten-vorbereiten/
beschriebenen Query als Datenquelle für einen Seriendruck verwendet. Es werden dadurch einzelne Flyer für jedes Theaterstk in jeder Institution in einer gegebenen Anzahl erstellt. Das klappt prima, nochmal danke an Uwe und Chris für die Hilfe! Habe das Makro von Uwe nur leicht anpassen müssen, da die Daten nicht in A1, sondern A2 beginnen (alle Tabellen mit Überschriften).
Für einen Übersichtsflyer (alle Theaterstücke pro Einrichtung) ergibt sich jetzt ein neues Muster... Es müssten alle Daten der Theaterstke jeder Institution zugeordnet werden, damit im späteren Seriendruck alle Daten in einem Datensatz vorhanden sind.
Ausgangslage: (alle Tabellen besitzen Überschriften
Tabelle Theaterstk.
1.1 | 1.2 | 1.3
2.1 | 2.2 | 2.3
Tabelle Institutionen
AA | AB | AC
BA | BB | BC
Gewünschte Tabelle
1.1 | 1.2 | 1.3 | 2.1 | 2.2 | 2.3 | AA | AB | AC
1.1 | 1.2 | 1.3 | 2.1 | 2.2 | 2.3 | BA | BB | BC
Meine stümperhaften Versuche gingen dahin, i nicht mehr gegen LR2, sondern LC2 laufen zu lassen... Kriege die Umstrukturierung des Ausdrucks
For I = 1 To LR2
TB1.Cells(2, 1).Resize(LR1, LC1).Copy TB3.Cells(Z + 2, 1).Resize(LR1, LC1)
TB2.Cells(I + 1, 1).Resize(1, LC2).Copy TB3.Cells(Z + 2, LC1 + 1).Resize(LR1, LC2)
Z = Z + LR1
Next I
jedoch (offensichtlich) nicht hin. Der Groschen ist halt kein Düsenflieger;) Freue mich über jeden Denkanstoß!
Danke und Grüße!