Werte zusammenfassen

[keks89]

Hallo,
ich habe hier ein kleines Problem, bei dem ich einfach nicht weiterkomme.
Und zwar habe ich eine Tabelle mit zwei Spalten:
A: Artikelnummer
B: Keyword

Die Artikelnummern können mehrfach vorkommen. Jetzt würde ich gern jeweils gleiche Artikelnummern aus Spalte A mit den zugehörigen Keywords aus Spalte B zusammenfassen.
Aussehen soll das ganze dann in etwa wie in meinem Screenshot auf der rechten Seite.
 
Gibt es dafür eine tolle Formel?

Vielen Dank für eure Hilfe :)

Sabrina

[Peter]

Hallo,

kopiere den folgenden VBA-Code in ein allgemeines Modul der Datei (*)

Code:

Function SummeWennText( _
                        SuchSpalte As Range, _
                        Suchbegriff As String, _
                        TextSpalte As Range, _
                        Optional TrennZeichen As String = "" _
                        ) As String
'http://www.office-loesung.de/ftopic460579_0_0_asc.php
Dim arrS
Dim arrT
Dim i As Long
arrS = SuchSpalte.Value
arrT = TextSpalte.Value
For i = 1 To WorksheetFunction.Min(UBound(arrS, 1), UBound(arrT, 1))
    If arrS(i, 1) = Suchbegriff Then SummeWennText = SummeWennText & TrennZeichen & arrT(i, 1)
Next
SummeWennText = Mid(SummeWennText, Len(TrennZeichen) + 1)
End Function

Folgende Formel in D2 und dann nach unten kopieren:

=Summewenntext(A$2:A$8;D2;B$2:B$8;" ")

(*)
- Öffne mit Alt+F11 den VBA-Editor
- mit Strg+R den Projekt-Explorer öffnen und aktivieren
- die gewünschte Datei per Doppelklick markieren
- Tastenkombination Alt+E und dann M drücken
- in der rechten Fensterhälfte ist jetzt ein leeres Modul eingefügt worden
- in dieses Modul muss der Code eingefügt werden
- im Projektexplorer wird das Modul unter der Datei angezeigt
- speichen und den VBA-Editor mit Alt+F4 schliessen
- die Funktion steht dir jetzt in dieser Datei zur Verfügung

[keks89]

Hallo Peter,

vielen Dank für deine Hilfe.
Ich habe alles so eingefügt und getestet, allerdings passiert bei mir leider nichts, d.h. die Zellen mit der Formel bleiben einfach leer.
Woran könnte das liegen?

[Luffy]

Hallo Peter,

vielen Dank für deine Hilfe.
Ich habe alles so eingefügt und getestet, allerdings passiert bei mir leider nichts, d.h. die Zellen mit der Formel bleiben einfach leer.
Woran könnte das liegen?

Kannst du deine Datei hochladen? Wir wissen jetzt ja nicht was du genau gemacht hast, ansonsten wird das noch zum Ratespiel.
Bzw eine anonymisierte Version.

[keks89]

Hier ist die Datei. 
  Tagging_neu.xlsm (Größe: 15,28 KB / Downloads: 3)
Es sollte am Ende wie gesagt aussehen, wie in meinem Screenshot oben rechts.


Ich wünsche mir zwei neue Spalten, die linke sollte die Artikelnummern enthalten, jeweils zusammengefasst, da diese jeweils mehrfach vorkommen können. Und rechts sollten dann die Keywords aneinandergereiht stehen, die der Artikelnummer zugeordnet wurden.

Ich bin in Excel leider die totale Niete :22:

Danke euch!!

[Peter]

Hallo,

ich würde die Spalte A SKU einfach kopieren und dann über Daten - Duplikate entfernen die doppelte Werte rauswerfen. Das war Schritt1 und

In Schritt2 kopierst du die Formel =Summewenntext(A$2:A$63;D2;B$2:B$63;" ") in E2 und ziehst die dann nach unten.

[keks89]

Aber Duplikate rauswerfen löst glaube ich nicht mein Problem oder? Die Artikelnummern in der linken Spalte können zwar mehrfach vorkommen, allerdings ist ihnen dann in der rechten Spalte ein anderes Keyword zugewiesen.

Ich habe also z.B.

SKU Keyword
1111 Haus
2222 Haus
3333 Baum
3333 Haus
1111 Vogel

Dann soll daraus folgendes werden:

SKU Keywords
1111 Haus Vogel
2222 Haus
3333 Baum Haus

[Peter]

Hallo,

du hast es nicht ausprobiert oder?

Ich habe die Spalte A markiert und nach D kopiert. Dann die Spalte D markiert und über Daten - Duplikate entfernen die Duplikate der Spalte gelöscht.

Anschließend in E2 die Formel eingetragen (der Code für die Funktion muss in einem allgemeinen Modul stehen) und so sieht dann das Ergebnis aus:

Arbeitsblatt mit dem Namen 'Tabelle1'
	A	B	C	D	E
1	SKU	Keyword		SKU
2	1111	Haus		1111	Haus Vogel
3	2222	Haus		2222	Haus
4	3333	Baum		3333	Baum Haus
5	3333	Haus
6	1111	Vogel

Zelle	Formel
E2	=Summewenntext(A$2:A$63;D2;B$2:B$63;" ")
E3	=Summewenntext(A$2:A$63;D3;B$2:B$63;" ")
E4	=Summewenntext(A$2:A$63;D4;B$2:B$63;" ")

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

Wenn ich das mit deinem Wunsch vergleiche sehe ich im Moment eigentlich keinen Unterschied.