Office: Aus 2 Tabellen mit unterschiedlichen Werten eine erstellen

Hallo,

habe folgendes Problem:

Ich möchte aus 2 Tabellen eine Tabelle machen, wobei Tabelle B in Tabelle A eingefügt werden soll. Allerdings hat Tabelle B weniger Zeilen, da einige Werte doppelt sind. Diese sollen aber den richtigen Vorlagewerten aus Tabelle A zugeordnet werden. Ich habe das alles einmal manuell gemacht, siehe Anhang Tabelle C.

Nun meine Frage: Gibt es eine Möglichkeit, dass über Funktionen zu machen, z.B. Verweis Funktionen. Habe da schon alles probiert, bekomme es aber einfach nicht hin.

Bitte helft mir, muss insgesamt über 1000 solcher Tabellen zusammenfügen.

MfG

Jost

 

Hallo!

Formeln sind für deinen Fall vielleicht etwas ungeeignet, da du ja in zwei unterschiedliche Richtungen suchen musst:
Einmal von Tabelle A in Tabelle B und einmal von Tabelle B in Tabelle A.
Daher bietet sich wohl eher eine Makro-Lösung für deinen Zweck an.
Dieser Code erstellt aus "Tabelle A" und "Tabelle B" ein neues Blatt "Kombi", in dem die gewünschte Verknüpfung erstellt wird:

Code:

Sub Kombi()
Dim i As Long, z As Range
Dim B As Worksheet
With ActiveWorkbook
Set B = .Sheets("Tabelle B")
.Sheets("Tabelle A").Copy Before:=.Sheets(1)
With .ActiveSheet
B.Range("A1:G1").Copy .Range("F1")
For i = 2 To .UsedRange.Rows.Count
Set z = B.Columns(1).Find(.Cells(i, 2))
If Not z Is Nothing Then B.Range(B.Cells(z.Row, 1), B.Cells(z.Row, 7)).Copy .Cells(i, 6)
Next i
For i = 2 To B.UsedRange.Rows.Count
Set z = .Columns(2).Find(B.Cells(i, 1))
If z Is Nothing Then B.Range(B.Cells(i, 1), B.Cells(i, 7)).Copy .Cells(.UsedRange.Rows.Count + 1, 6)
Next i
.Columns.AutoFit
.Name = "Kombi"
End With
End With
End Sub

Dafür müssen natürlich alle deine Dateien so aufgebaut sein wie deine Beispieldatei.

 

Vielen Dank! Habe mir fast gedacht, dass man das mit Formeln nicht hinbekommt. Muss aber gestehen, dass ich lediglich Makros aufnehmen kann, selber programmieren habe ich noch nie gemacht. Wie sollte man das am besten lernen?

Dein Makro werde ich morgen direkt mal probieren. Melde mich dann noch einmal! Vielen Dank noch mal!

Gruß, Jost.

 

Vielen, vielen Dank noch einmal, hat alles bestens geklappt! Wo kann man sich so ein umfassendes Wissen zu Excel aneignen?

MfG

Jost