Neue Tabelle aus 2 bestehenden Tabellen erstellen

Hallo,
ich versuche mich gerade an einem VB-Skript, komme allerdings überhaupt nicht weiter, da ich nicht weiß, wo und wie ich anfangen soll.
Ich habe eine 1. Tabelle im Tabellenblatt1 mit 2 Spalten A und B:
A B
Name1 Gruppe1
Name2 Gruppe2
Name3 Gruppe2
Name4 Gruppe3
Und eine 2. Tabelle im Tabellenblatt2 ebenfalls mit 2 Spalten A und B:
A B
Gruppe1 Aufgabe1
Gruppe1 Aufgabe2
Gruppe1 Aufgabe3
Gruppe1 Aufgabe4
Gruppe2 Aufgabe1
Gruppe2 Aufgabe2
Gruppe3 Aufgabe1
Gruppe3 Aufgabe2
Im 3. Tabellenblatt soll dann das ganze kombiniert werden, d.h.:
Name1 Aufgabe1
Name1 Aufgabe2
Name1 Aufgabe3
Name1 Aufgabe4
Name2 Aufgabe1
Name2 Aufgabe2
Name3 Aufgabe1
Name3 Aufgabe2
Hätte jemand zufällig ein Beispiel, mit dem ich starten kann? Was ist das für ein Abfragetyp, den ich hier benötige?
Grüße
Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Günther,
mit Power Query hatte ich als davor zu tun und bin dort nicht weitergekommen
Der Link sollte nun funktionieren: https://www.herber.de/bbs/user/126125.xlsx
Ich habe ein Beispiel im Netz gefunden, aber mir fehlt das Wissen um hier etwas brauchbares daraus zu machen:


Option Explicit
Option Compare Text
Sub Test()
Dim Wks1 As Worksheet, Wks2 As Worksheet, Wks3 As Worksheet, Found As Range, c As Range, d  _
As Range
Set Wks1 = Sheets("Tabelle1"):  Set Wks2 = Sheets("Tabelle2"): Set Wks3 = Sheets("Tabelle3") _
Application.ScreenUpdating = False
With Wks1
For Each c In .Range("A1:A" & .Cells(.Rows.Count, "A").End(xlUp).Row) 'Fuer jeden Namen  _
in Spalte A soll geprüft werden (also den Namen)
For Each d In .Range("B1:B" & .Cells(.Rows.Count, "A").End(xlUp).Row) 'Ob fuer jeden  _
daneben stehenden Wert in Spalte B (also die Gruppe)
If Not IsEmpty(c) Then 'Wenn da etwas drinsteht
Set Found = Wks2.Columns("A").Find(d, LookIn:=xlValues, LookAt:=xlWhole)
'Es wird in Tabelle2/Spalte A geschaut, ob dort der Name der Gruppe aus Tabelle2/ _
SpalteB vorhanden ist.
If Not Found Is Nothing Then  'Wenn einer gefunden worden ist, dann
.Rows(c.Row).Copy: .Rows(d.Row).Copy: Wks2.Rows(1, 2).Insert
'Kopiert werden soll der jeweilige Wert aus Tabelle1/SpalteA, alle Werte  _
von Tabelle2/SpalteB, die zum Wert aus Tabelle1/SpalteA gehoeren
End If
End If
Next
End With
Application.CutCopyMode = False:  Application.ScreenUpdating = True
End Sub

Grüße
Michael

Beliebteste Forumthreads (12 Monate)

Neue Tabelle aus 2 bestehenden Tabellen erstellen

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Arbeitsblatt mit dem Namen 'Tabelle3'
	E	F
1	Name	Aufgaben
2	Name1	Aufgabe3
3	Name1	Aufgabe4
4	Name1	Aufgabe1
5	Name1	Aufgabe2
6	Name2	Aufgabe61
7	Name2	Aufgabe60
8	Name3	Aufgabe61
9	Name3	Aufgabe60
10	Name4	Aufgabe81
11	Name4	Aufgabe80

Neue Tabelle aus 2 bestehenden Tabellen erstellen

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread