Alle Lieferanten für ein Produkt herausfinden

[daalex1]

Hallo zusammen,

wir bestellen einige Produkte hin und wieder bei verschiedenen Lieferanten.
Ich habe folgendes Problem:
1. Ich habe eine Liste an Fehlteilen, bei welchen ich wissen möchte, wo ich diese überall anfragen kann.
2. Ich habe eine Liste mit vielen Teilen und wo wir diese jeweils bestellt haben. 

Excel 1 sieht also so aus:

Produkt            Lieferanten
P1                   ?
P2                   ?
P3                   ?


Und Excel 2 so:

Produkt            Lieferant
P1                   ABC
P2                   BAC
Pxxx                CAB
P1                   BAC
P3                   ABC
Pxx                  BAA
Px                   CAA
Pxxx                DDD
P2                   BBB
P3                   ABB
P1                  BBB


Da es leider sehr viele Teile sind kann ich es nicht händisch machen.

Und in Excel 1 sollte ich dann in der Lage sein bspw. P1 so darzustellen:

Produkt         Lieferanten
P1                 ABC, BAC, BBB
....

Leider habe ich keine Ahnung wie man das lösen kann. Bspw. per Pivot werden ja nur Zahlen ausgegeben..

Über Hilfe wäre ich sehr sehr dankbar!

Viele Grüße,
Alex

[RPP63]

Moin!
Warum sortierst Du nicht einfach nach Produkt?
Schließlich hast Du dann alle Lieferanten eines Produkts untereinander stehen.
Alternativ filterst Du einfach nach gesuchtem Produkt.

In neueren Versionen (MS 365 und Online) geht auch folgendes:
(ich kenne übrigens kein Excel 2009)

	A	B	C	D	E
1	Produkt	Lieferant		Produkt	Lieferanten
2	P1	ABC		P1	ABC, BAC, BBB
3	P2	BAC		P2	BAC, BBB
4	Pxxx	CAB		P3	ABC, ABB
5	P1	BAC		Px	CAA
6	P3	ABC		Pxx	BAA
7	Pxx	BAA		Pxxx	CAB, DDD
8	Px	CAA
9	Pxxx	DDD
10	P2	BBB
11	P3	ABB
12	P1	BBB

Zelle	Formel
D2	=SORTIEREN(EINDEUTIG(A2:A12))
E2	=TEXTVERKETTEN(", ";;FILTER(B$2:B$12;A$2:A$12=D2))

Gruß Ralf

[daalex1]

Moin Ralf,

danke für die schnelle Antwort.
Die Frage "warum" ist schnell beantwortet: Weils die Chefin so will. :D
Da wäre Filtern/Sortieren natürlich einfach, sie will es aber in dieser anderen Excel auf einen Blick neben den Fehlteilen dargestellt haben.

Leider haben wir hier auch nur Excel 2010.. Daher leider nicht die Funktionen die du beschrieben hast. Genau so würde ich es aber gern haben.

Viele Grüße,
Alex

[RPP63]

Dann sage Deiner Chefin doch mal, dass der Support für Excel 2010 eingestellt ist und es daher nicht mehr in einem produktiven Umfeld eingesetzt werden sollte!
Und wie bereits geschrieben:
Meine Formeln funktionieren auch auf Excel Online:
https://office.live.com/start/Excel.aspx

   

Gruß Ralf

[daalex1]

Da ist unsere Firma leider doch ein ganzes Stück größer und internationaler als dass ich das nur meiner Chefin sagen müsste.. Hat vielleicht auch Kostengründe, dass sie nicht zehntausende Excel Lizenzen kaufen? Das kann ich dir aber nicht beantworten :D

Und dieses Excel Online scheint nicht zu funktionieren bzw. gesperrt zu sein. 
Ich bräuchte also eine Lösung für direkt in Excel 2010

[RPP63]

Vorsicht, Zynismus!
Wieviel ist die Lösung denn der großen internationalen Firma nebst Chefin wert?
Schließlich sparen die ja mit veralteten Lizenzen.
Erlaubt die große internationale Firma VBA?
[/Zynismus]

Beantworte bitte zumindest die letzte Frage.

[daalex1]

Ich kann mal nachfragen falls du ein gutes Angebot machen willst!  :100:

Makros werden schon verwendet ja. Leider kann ich nur selbst keine schreiben da nicht das nötige Wissen.

Heißt aber, dass es schon mal keine einfache Lösung gibt, an die ich einfach nicht gedacht habe?

[RPP63]

Ist alles relativ!  :21:
UDF in einem allgemeinen Modul:

Modul Modul1

Option Explicit 
 
Function TVKrpp(Delimiter$, rngSearchArray As Range, rngResultArray As Range, Compare$) 
Dim i& 
If rngSearchArray.Count <> rngResultArray.Count Then 
  TVKrpp = CVErr(xlErrRef) 
  Exit Function 
End If 
For i = 1 To rngSearchArray.Count 
  If rngSearchArray.Cells(i) = Compare Then 
    TVKrpp = TVKrpp & rngResultArray.Cells(i) & Delimiter 
  End If 
Next 
TVKrpp = Left(TVKrpp, Len(TVKrpp) - Len(Delimiter)) 
End Function 

Wie Du eine eindeutige Liste der Artikel mittels Daten, Duplikate entfernen erstellst, weißt Du ja hoffentlich.
Die UDF kannst Du jetzt wie eine "normale" Funktion im Tabellenblatt verwenden:

	A	B	C	D	E
1	Produkt	Lieferant		Produkt	Lieferant
2	P1	ABC		P1	ABC, BAC, BBB
3	P2	BAC		P2	BAC, BBB
4	Pxxx	CAB		P3	ABC, ABB
5	P1	BAC		Px	CAA
6	P3	ABC		Pxx	BAA
7	Pxx	BAA		Pxxx	CAB, DDD
8	Px	CAA
9	Pxxx	DDD
10	P2	BBB
11	P3	ABB
12	P1	BBB

Zelle	Formel
E2	=TVKrpp(", ";A$2:A$12;B$2:B$12;D2)

Wenn ihr das produktiv einsetzt, könnte die große internationale Firma ja eine kleine Spende an eine soziale Organisation spenden.
Passt zur Weihnachtszeit nebst Corona-Kacke.

[EbyAS]

Hallo Alex,
wenn Du eine Lösung mit VBA brauchst musst Du schon ein Beispiel zur Verfügung stellen, VBA braucht das schon etwas genauer.

[daalex1]

Vielen Dank für die Hilfe Ralf. Ich versuche das mal hinzubekommen. Habe noch nie ein Makro so verwendet.

Tut mir übrigens leid für die Beschreibung der "großen internationalen Firma", wollte dir damit nur klar machen, dass weder ich noch meine Chefin da irgendetwas bewirken kann, was bspw. unsere Excel-Version angeht. 
Da leider keiner von uns im Management oder ein hohes Tier in der IT ist müssen wir benutzen was uns gegeben wird.

---

Hallo Alex,
wenn Du eine Lösung mit VBA brauchst musst Du schon ein Beispiel zur Verfügung stellen, VBA braucht das schon etwas genauer.

Hallo Armin,

ich habe eigentlich eine Formel-Lösung angestrebt, das scheint aber wohl nicht möglich zu sein