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
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
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
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
[
attachment=36011]
Gruß Ralf
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
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.
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?
Ist alles relativ! :21:
UDF in einem allgemeinen Modul:
Modul Modul1Option 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.
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.
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.
(22.12.2020, 09:46)EbyAS schrieb: [ -> ]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