Alle Lieferanten für ein Produkt herausfinden

[EbyAS]

Hallo Alex,
wie Du ja schon von Ralf gelesen hast, etweder ein neuere Lizenz oder VBA. Ich brauche keine Lösung.

[daalex1]

@RPP63

Hat tatsachächlich funktioniert.. Ich weiß nicht wie und was und wo du das so schnell her hast (wohl selbst geschrieben) aber wahnsinn. Danke!
Ich muss nur noch schauen ob ich das so auch anwenden kann da ich ganz viele Fehlermeldungen bekommen habe mit "Signaturen werden entfernt" usw. Aber an sich funktioniert es genau so wie ich es haben wollte.

Würde mir wünschen, ich könnte mir sowas auch einfach aus dem Hirn zaubern. Ich versuchs mal als Wunsch für Weihnachten! :D

Viele Grüße,
Alex

[Fred11]

Hallo Alex,

hier ergänzend noch eine Formellösung, die auch in Excel 2010 funktioniert.

Arbeitsblatt mit dem Namen 'Tabelle2'
	A	B	C	D	E	F	G	H	I
1	Produkt	Lieferant		Produkt
2	P1	ABC		P1	ABC	BAC	BBB
3	P2	BAC		P2	BAC	BBB
4	Pxxx	CAB		Pxxx	CAB	DDD
5	P1	BAC		P3	ABC	ABB
6	P3	ABC		Pxx	BAA
7	Pxx	BAA		Px	CAA
8	Px	CAA
9	Pxxx	DDD
10	P2	BBB
11	P3	ABB
12	P1	BBB

Zelle	Formel
E2	=WENNFEHLER(INDEX($B$2:$B$12;AGGREGAT(15;6;ZEILE($A$2:$A$12)/($A$2:$A$12=$D2)-1;SPALTE(A1)));"")

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.02] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

Formel dann nach rechts und nach unten ziehen (kopieren)
Die Lieferanten stehen dann allerdings nicht alle mit Komma getrennt in einer Zelle (wie bei der Lösung von Ralf), sondern aufgeteilt auf mehrere Zellen.

Erklärung der Formel (Prinzip) siehe hier:
https://www.youtube.com/watch?v=He3dblboncw
https://www.youtube.com/watch?v=fDB1Ktyhp3Y

Gruß
Fred

[daalex1]

Vielen vielen Dank Fred,

das werde ich direkt mal ausprobieren nach meinem Urlaub. 
Dass sie in unterschiedlichen Zellen stehen sollte ja auch kein Problem sein oder.. könnte man ja einfach mit Verketten lösen oder täusche ich mich?

Viele Grüße und schöne Feiertage!
Alex

[daalex1]

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.

Hi @RPP63

vorab erst einmal nachträglich noch ein gutes neues Jahr! 
Ich hätte jetzt doch noch einmal eine Frage zum Makro.. Soweit funktioniert es einwandfrei, jedoch werden hier Dopplungen nicht ausgenommen. Teilweise kommt die selbe Produktnummer mit dem gleichen Lieferanten mehrfach. Daher kommt mit deinem Makro dieser Name dann auch bspw. 5 mal hintereinander.

Wäre das noch leicht zu beheben?
Ich wäre dir extrem dankbar!

Vielen Dank im Voraus und viele Grüße,
Alex

PS: ich glaube es hat sich erledigt. Wenn ich Produkt & Lieferant erst verkette und dann die Duplikate entferne sollte es funktionieren. Ansonsten würde ich mich nochmal melden :) Danke!

[RPP63]

Moin!
Eigenzitat:

Wie Du eine eindeutige Liste der Artikel mittels Daten, Duplikate entfernen erstellst, weißt Du ja hoffentlich.

Du musst halt erst eine Tabelle mit eindeutigen Werten - bezogen auf Spalte A und B - mit zitierter Methode erstellen und kannst dann die UDF nutzen.

Gruß Ralf

[daalex1]

Bin mir nicht sicher ob ich das so mache wie du es meinst, oder doch etwas umständlicher...
Aber da warst du wohl schneller als ich meinen Beitrag bearbeitet habe.. :D

Danke!

[RPP63]

Du musst nix temporär verketten!
Ausgangslage:

	A	B
1	SpA	SpB
2	1	B
3	2	B
4	1	A
5	1	C
6	1	C
7	1	A
8	3	B
9	3	B
10	3	B

Daten → Duplikate entfernen → beide Spalten auswählen

ergibt:

	A	B
1	SpA	SpB
2	1	B
3	2	B
4	1	A
5	1	C
6	3	B

[daalex1]

Problem ist folgendes, ich glaube da hast du mich falsch verstanden (oder ich checke es gerade nicht):

Ich habe teilweise:

Produkt       Lieferant
A1               AB
B1               AB
B2              AC
A1              AD
A1              AB
B3              AD
A1              AB

Wenn ich jetzt dein Makro anwende dann kommt raus

Produkt     Lieferant
A1            AB,AD,AB,AB
B1             .....
B2
B3


Hier will ich jetzt aber nur einmal "AB" haben.

Deswegen habe ich temporär das Produkt&Lieferant verkettet, davon die Duplikate gelöscht und dann das Makro hergenommen :) So hat sich das Problem dann auch erledigt.
Oder habe ich was falsch gemacht?

Viele Grüße,
Alex


PS: Natürlich habe ich es falsch verstanden nachdem ich mir es noch paar Mal durchgelesen habe.. Gut zu wissen für nächstes Mal! Wusste ich gar nicht, dass das geht, dass er dann beide vergleicht.
Dachte er löscht dann sowohl Duplikate aus A als auch B, aber er verknüpft ja für die Duplikate dann quasi A&B..
Good to know, danke!