Zuordnung multipler Werte

Hallo Excel-Gurus,
ich habe folgendes Problem:
Ich habe eine Liste mit mehreren Nummern, sagen wir Materialnummern. Diese sind in einem Tab gelistet und eindeutig.
In einem zweiten Tab habe ich zu diesen Materialnummern die Hersteller gelistet. Das können dann zu einer Materialnummer auch mal zwei oder drei Hersteller sein.
Hier könnt ihr das Beispiel sehen:
https://www.herber.de/bbs/user/136109.xlsx
Alle Hersteller aus dem Tab "Hersteller" sollen jetzt den Materialnummern im Tab "Material" zugeordnet werde. Eigentlich eine Sache für einen SVERWEIS. Der funktioniert aber immer nur mit dem ersten Eintrag eines Herstellers. Ich möchte jedoch, sofern es mehrere Hersteller zu einer Materialnummer gibt, pro Materialnummer/Hersteller Kombination eine neue Zeile haben.
Genauso wie es im Tab "Hersteller" aussieht.
Zur Erklärung, denn das klingt sicher auf den ersten Blick blöde, denn, wenn ich das schon habe, warum soll es dann nochmals gematcht werden? Ganz einfach; der Tab "Material" ist in der Realität die Liste, die ich brauche, und da stehen noch sehr viel mehr Daten drin. Ich möchte also alle notwendigen Daten aus verschiedenen Tabs in einem zusammenbringen.
Hat jemand eine Idee für mich? Vielen Dank im voraus, viele Grüße, bleibt gesund
Paul

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Paul,
Ich selber habe enorm viel aus diesem Forum gelernt und dies wird meine erste Antwort auf eine Frage.
Ich verstehe noch nicht ganz, wie die Daten aufgebaut sind: Du hast im Tab MAterial jede MAterialnummer genau einmal gelistet und im Tab Hersteller Kombinationen Materialnummer -> Hersteller, wobei ein MAterial mehrfach zu einem Hersteller zugeordnet werden kann?
Also z.B.
Tab MAterial
0815
4711
1234
Tab Hersteller
0815 -> Edeka
0815 -> Amazon
0815 -> Aldi
4711 -> Lidl
4711 -> Penny
1234 -> Penny
1234 -> Aldi
Was genau willst du erreichen?
Ich vermute, dass du die Liste Tab Hersteller komprimieren möchtest, ungefähr so:
Tab MAterial (ergänzt um die Hersteller):
0815 -> Edeka, Amazon, Aldi
4711 -> Lidl, Penny
1234 -> Penny, Aldi
Richtig?
Ich würde das Ganze so anstellen, dass ich für jede Zurodnung MAterial -> Hersteller den Hersteller zwischenspeichere und an einen Ausgabewert anfüge:


Sub ListAllSupplier()
Dim Hrst As Worksheet
Dim Mtrl As Worksheet
Dim tmp As String ' Variable zum Zwischenspeichern
Dim show_list As String ' Variable zum "VErketten" der gefundenen Hersteller
Dim mtrl_i As String ' das i-te Material für vlookup
Dim i As Long ' Zähler für die Material-Liste
Dim j As Long ' Zähler für Hersteller-Liste
Dim LastRowMtrl As Long ' Ermittlung/Festlegung der letzten Zeile
Dim LastRowHrst As Long
Set Hrst = ThisWorkbook.Worksheets("Hersteller")
Set Mtrl = ThisWorkbook.Worksheets("Material")
LastRowMtrl = 4 'wird für meine Beispiel festgelegt, müsste man wahrscheinlich individuell  _
ermitteln... ist für mei Beispiel aber unerheblich
LastRowHrst = 5
tmp = ""
For i = 2 To LastRowMtrl
mtrl_i = Mtrl.Range("A" & i).Value
'MsgBox mtrl_i
For j = 2 To LastRowHrst
' Ermitteln des j-ten Herstellers zum i-ten MAterial
tmp = Application.WorksheetFunction.VLookup( _
mtrl_i, _
Hrst.Range("A2:B5"), _
2, _
False) ' ich gehe also mit i zeilenweise durch das Tabellenblatt Material und
' verkleinere über das j die Auswahl der Zuordnungen MAterial zu Hersteller
If tmp  "" Then
show_list = show_list & ", " & tmp ' show_list wird ergänzt um den Hersteller.
'Mit dieser Quick and dirty-Lösung hast du zu  _
Beginn immer noch ein ', '
'stehen, das kann man aber codeseitig entweder  _
rausschneiden oder über
'andere Mittel nicht erstellen lassen.
End If
Mtrl.Range("B" & i).Value = show_list ' nachdem das j einmal durch die Herstellerliste
'gelaufen ist, wird das Ergebnis in die  _
MAterialliste
'zurückgeschrieben in Spalte 2
Next
Next
End Sub

Beliebteste Forumthreads (12 Monate)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread