Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1872to1876
1872to1876
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Tabellen zusammenführen

Zwei Tabellen zusammenführen
07.03.2022 15:55:27
Thomas
Hallo zusammen,
ich möchte gerne zwei Tabellen "zusammenführen", auch wenn diese Begrifflichkeit an dieser Stelle wohl falsch ist... Ausgangslage ist eine Tabelle mit Daten verschiedener Theaterstücke sowie eine Tabelle mit Daten unterschiedlicher Institutionen. Jedes Theaterstück wird in jeder Institution aufgeführt. Es soll also jede Zeile der Theaterstk-Tabelle mit jeder Zeile der Institutionen-Tabelle in einer neuen Tabelle kombiniert werden.
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 | AA | AB | AC
2.1 | 2.2 | 2.3 | AA | AB | AC
1.1 | 1.2 | 1.3 | BA | BB | BC
2.1 | 2.2 | 2.3 | BA | BB | BC
Kriege es mit den üblichen Bordmitteln nicht hin, vllt stehe ich aber auch einfach auf dem Schlauch. Bin jedenfalls für jeden Tipp dankbar!
LG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zwei Tabellen zusammenführen
07.03.2022 16:36:41
UweD
Hallo
angenommen in beiden Tabellen beginnen die Werte in A1
so?

Sub Wunsch()
Dim TB1 As Worksheet, TB2 As Worksheet, TB3 As Worksheet, Z As Integer
Dim LR1 As Integer, LR2 As Integer, i As Integer
Dim LC1 As Integer, LC2 As Integer
Set TB1 = Sheets("Theaterstk.")
Set TB2 = Sheets("Institutionen")
Set TB3 = Sheets("Wunsch")
LR1 = TB1.Cells(TB1.Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
LC1 = TB1.Cells(1, TB1.Columns.Count).End(xlToLeft).Column 'letzte Spalte einer Zeile
LR2 = TB2.Cells(TB2.Rows.Count, 1).End(xlUp).Row
LC2 = TB2.Cells(1, TB2.Columns.Count).End(xlToLeft).Column
'reset
TB3.UsedRange.ClearContents
For i = 1 To LR2
TB1.Cells(1, 1).Resize(LR1, LC1).Copy TB3.Cells(Z + 1, 1).Resize(LR1, LC1)
TB2.Cells(i, 1).Resize(1, LC2).Copy TB3.Cells(Z + 1, LC1 + 1).Resize(LR1, LC2)
Z = Z + LR1
Next i
End Sub

Anzeige
AW: Zwei Tabellen zusammenführen
07.03.2022 16:45:08
Thomas
Super Uwe, du hast meinen Tag versüßt;)
Danke nochmal, ihr seid einfach abartig schnell beim Antworten:)
Danke für die Rückmeldung (owT)
08.03.2022 08:31:04
UweD
AW: Zwei Tabellen zusammenführen
07.03.2022 17:21:52
ChrisL
Hi Thomas
Als Alternative hier noch Power-Query:
https://www.herber.de/bbs/user/151612.xlsx
Bei Interesse PQ-Intro Video schauen und bei Bedarf nachfragen.
cu
Chris

301 Forumthreads zu ähnlichen Themen

Mehrere Tabellen zusammenführen
Peter

Hallo,
ich habe folgende Herausforderung zu meistern, und hoffe auf Eure Hilfe!
Ich habe 12 Excel-Datein (Jan - Dez), die jeweils eine Tabelle mit den Spaltenüberschriften: Produktkürzel, Bezeichnung, Produktnummer und Anzahl enthalten. In den Zeilen stehen die jeweils im Monat verkauft...
29.07.2009 14:41:05
Thread-ID: 1092257
7 Beiträge
Anzeige
Daten aus mehrere Tabellenblätter kopieren
Sebastian

Hallo zusammen,
ich habe in einer Exceldatei mehrere Blätter der Form: 0104, 0204, 0504, 0904, etc.
Der Aufbau ist immer gleich. Nun möchte ich von allen Blättern jeweils die 2. Zeile in ein neues Tabellenblatt kopiert haben. Für ein Blatt ist das kein Problem, allerdings kann ich nic...
07.03.2011 17:12:03
Thread-ID: 1204623
2 Beiträge
Daten aus mehreren Tabellenblättern zusammenführen
Kitsune

Hallo zusammen,
nachdem mein unter https://www.herber.de/forum/messages/1316004.html gestelltes Problem erfolgreich gelöst wurde und ich das Skript vom Beispiel ebenso erfolgreich in meine "große" Tabelle implementiert habe, stehe ich vor dem nächsten Problem:
ich mache die Einsatzplanu...
04.06.2013 15:02:38
Thread-ID: 1316249
9 Beiträge
Anzeige
Mehrere Tabellenblätter zu einer zusammenfassen
Plato

Guten Tag zusammen,
ich habe eine Frage zum zusammenfassen von Tabellenblättern:
Ich habe eine Excelliste, die mehrere Tabellenblätter enthält.
Komplett gleich angeordnet und von der Form her identisch.
Jedoch beinhaltet jedes TB nur eine Produktgruppe.
Auf einem neuen Tabel...
25.09.2014 11:39:04
Thread-ID: 1383341
2 Beiträge
mehrere Tabellen in eine PDF-Datei zusammenführen
Andy

Hallo,
habe diese Listbox und möchte in dieser Listbox mehrere Tabellen auswählen und als PDF-Datei konvertieren.
Das klappt auch ganz gut.
Nun möchte ich, das diese ausgewählten Tabellen in eine PDF-Datei gespeichert werden.
Der Name und das Datum soll aus Tabelle2 A1 und B1 en...
03.03.2015 19:21:24
Thread-ID: 1412519
2 Beiträge
Mehrere Tabellen (ListObjects) untereinander
Steven

Hallo,
ich habe ein Tabellenblatt in dem ich mehrere Tabellen (ListObjects) untereinander habe.
Die haben jeweils eine unterschiedliche Spaltenanzahl.
Nun möchte ich mittels VBA eine Zeile in einer der Tabellen löschen.
Wenn jedoch die Tabelle, aus der ich eine Zeile löschen möc...
06.05.2015 16:01:51
Thread-ID: 1425022
3 Beiträge
Werte aus mehreren Tabellenblättern kopieren
Kai

Hallo zusammen,
ich nutze ein Makro um aus mehreren Tabellenblättern ein einziges zu erstellen.
Die Quelldateien haben bis zu 50.000 Zeilen sodass sich eine Menge Daten ergeben und das Makro sehr lange läuft. Allerdings sind dort viele Werte mit Null enthalten, die ich in der Zieldatei...
15.09.2015 16:18:01
Thread-ID: 1447599
2 Beiträge
mehrere tabellenblätter zusammenführen
John

Ich habe eine Mappe,
in dieser werden per Makro die jeweils ersten Blätter kopiert und ein eingefügt!
Auf den Blättern befindet sich jeweils eine Rechnung
David
18.05.2015 Rechnungstext 60,-
20.06.2015 Rechnungstext 80,-
Auf dem nächsten Blatt steht dann in den...
22.11.2015 14:16:30
Thread-ID: 1459948
11 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
1
8
2
1
1
2
1
10
5
1
1
2
3
2
1
17
3
9
1
5
11
4
1