Office: (Office 2016) Inhalte in einer einzigen Zelle verbinden, wenn die Kunden-Nr. identisch ist

Hallo alle zusammen,

irgendwie stehe ich auf dem Schlauch!

Ich habe eine Liste, die Artikelnummern beinhaltet und die Kunden-Nr. dazu. Heißt, dass manche Kunden nur 1 Artikel bestellt haben, andere wiederum ganz viele.

Was ich nun brauche: In einer einzelnen Zelle sollen alle Artikel-Nr. (S-Verweis) verkettet werden, die die gleiche Kunden-Nr. haben. Das hier ggf. mehrere Steps notwendig sind, ist mir klar!



Könnt ihr mir auf die Sprünge helfen?

Vielen Dank für Eure Hilfe,
Markus

 

Hi Markus,

wenn die Daten so wie in deinem Beispiel nach Spalte B sortiert vorliegen, dann kannst du folgendes Makro dazu verwenden:

Code:

Sub Zusammen()
    Dim lngZeile As Long
    Dim strZusammen As String
    Dim lngZiel As Long
    Dim lngAnzahl As Long
    Dim lngSchleife As Long
    lngZiel = 2
    For lngZeile = 2 To Columns(2).Find(What:="*", SearchOrder:=xlByRows, _
        SearchDirection:=xlPrevious).Row
        Cells(lngZiel, 11) = Cells(lngZeile, 2)
        lngAnzahl = Application.CountIf(Columns(2), Cells(lngZeile, 2))
        If lngAnzahl > 1 Then
            For lngSchleife = lngZeile To lngZeile + lngAnzahl - 1
                strZusammen = strZusammen & Cells(lngSchleife, 8) & " / "
            Next lngSchleife
            strZusammen = Left(strZusammen, InStrRev(strZusammen, " / "))
            lngZeile = lngZeile + lngAnzahl - 1
        Else
            strZusammen = Cells(lngZeile, 8)
        End If
        Cells(lngZiel, 12) = strZusammen
        lngZiel = lngZiel + 1
        strZusammen = ""
    Next lngZeile
End Sub

Bis später,
Karin