Clever-Excel-Forum

Hallo zusammen,

ich bin auf der Suche nach einer Lösung für folgende Herausforderung:

Ich habe eine Tabelle mit allen Bestellungen, den enthaltenen Produkten und der Anzahl von bestellten Produkten. Dabei wird pro Produkt und pro Bestellung eine neue Zeile generiert. Das heißt wenn ein Kunde zwei verschiedene Produkte in einer Bestellung bestellt, dann wird das in zwei Zeilen angezeigt. Nun möchte ich herausfinden, welche Produkte häufig zusammen bestellt werden, also welche Kombinationen häufig vorkommen. Anbei einmal eine Beispieldatei. Meine eigentliche Tabelle enthält 694 Zeilen, aufgrund von kundenbezogener Daten kann ich diese hier nicht teilen.

Ich habe überlegt, ob sich das über eine Pivot Tabelle lösen lässt und habe als Zeile die Bestellnummer, Spalte die Produktcodes und im Datenbereich die Summe der Produktcodes. Hier kann ich jedoch nicht sehen, welche Kombination häufig vorkommt sondern nur wie häufig das Produkt vorkommt.

Hat hier jemand eine Idee? Ich bin leider überfordert. Danke schonmal!

LG
Laura

Hallo Laura,

in der Anlage ein Lösungsbeispiel mit Makro und hier noch zwei Bemerkungen:

1. Sortierung
Die Liste muss zur Zeit nach Bestellnummer und Produktcode sortiert sein.

2. Namen
Da ich in makros ungern mit festen Adressen arbeite, benötigt das Makro zur Zeit zwei benannte Zellen ("Liste" und "Ausgabe").
Ich greife auf die Bereiche zu den benannten Zellen mit "CurrentRegion" zu, daher dürfen in den Zellen direkt vor, unter oder neben den Listen keine Einträge vorhanden sein.

Moin Ego,

vielen Dank für deine Hilfe. Leider kann ich auf die Datei nicht vollständig zugreifen, da ich eine andere Excel Version habe. Könntest du das Makro hier einmal rein kopieren? Danke.

Gruß
Laura

bitte sehr:

Code:
Private Sub cbTuwat_Click()

Dim Z1 As Long

Dim Z2 As Long

Dim Key As Variant

Dim Liste As Variant

Dim Text() As String

Dim Ausgabe() As Variant

Dim dict As Object

Set dict = CreateObject("Scripting.Dictionary")

Liste = ThisWorkbook.Names("Liste").RefersToRange.CurrentRegion.Value

'-----------------------------------------

' Einlesen der Paarungen

'-----------------------------------------

For Z1 = 2 To UBound(Liste, 1) - 1

    For Z2 = Z1 + 1 To UBound(Liste, 1)

        If Liste(Z1, 1) = Liste(Z2, 1) Then

            Key = Liste(Z1, 2) & ";" & Liste(Z2, 2)

            dict(Key) = dict(Key) + 1

        Else

            Exit For

        End If

    Next Z2

Next Z1

'-----------------------------------------

' Ausgeben der Paarungen

'-----------------------------------------

ReDim Ausgabe(1 To dict.Count, 1 To 3)

Z1 = 0

For Each Key In dict.keys

    Z1 = Z1 + 1

    Text = Split(Key, ";")

    Ausgabe(Z1, 1) = dict(Key)

    Ausgabe(Z1, 2) = Text(0)

    Ausgabe(Z1, 3) = Text(1)

Next Key

ThisWorkbook.Names("Ausgabe").RefersToRange.CurrentRegion.ClearContents

ThisWorkbook.Names("Ausgabe").RefersToRange.Resize(dict.Count, 3).Value = Ausgabe

End Sub

Super, vielen Dank das hat schonmal geklappt!

Ich habe jedoch festgestellt, dass wenn ein Kunde mehr als 2 verschiedene Produkte in seiner Bestellung hat, dass das Makro das nicht erkennt, sondern diese dann überspringt. Gibt es da noch eine Lösung für?

Hallo Laura,

das kann ich nicht verstehen (siehe Anlage).

Wichtig ist, dass die Liste sortiert ist.

Ich habe festgestellt, dass wenn ich eine Bestellung habe die 3 Produkte beinhaltet, die Kombination nicht richtig gezählt werden. Es werden dann nur die ersten beiden Artikel gezählt. Ich habe auch Bestellung die mehr als 3 Produkte beinhalten. Anbei nochmal eine Beispieldatei zur Verdeutlichung.

Kann man da noch was machen? Danke!

Hallo Laura,

was soll die neue Datei ohne dem Makro?

Was wird denn falsch berechnet, wenn du deine Beispieldaten in meiner Datei mit dem Makro auswertest?

In meiner Datei waren mehr Beispiele, auch Bestellungen mit mehreren Produkten. Wo wird die Anzahl der auftretenden Kombinationen falsch ermittelt?

schlaura

Ego

schlaura

Ego

schlaura

Ego

schlaura

Ego