Office: Häufigkeit von Artikel Kombinationen

Moin,
Ich möchte herausfinden wie oft sich Artikel in gleicher Kombination verkaufen.
Bisheriger Aufbau: Spalte A Auftragsnummer (fortlaufend) Spalte B Artikel ID je Auftrag Spalte C Menge der Artikel in dem jeweiligen Auftrag.
Zur Info: Auftragsnummer stehen doppelt oder öfter, wenn mehrere Artikel in dem Auftrag sind.

Ich möchte wissen, bei welchen Artikeln sich ein Bundle lohnen würde.

Liebe Grüße
Katharina

 

Hallo Katharina,

nachgefragt: Wieviele Datensätze, Auftragsnummern und Artikel sind denn jeweils ca. max auszuwerten? Sind auch die Gesamtmengen je "Kombination" zu berücksichtigen oder nicht?

 

Hey,
Ich habe 67019 Spalten. Die Menge muss nicht unbedingt berücksichtigt werden, wäre aber schon gut wenn das möglich wäre.

 

Hallo Katharina,

hier mit 365 eine Filterlösung.

Gruß
Roger

 

Hey Roger,
Ah ok, das sieht echt interessant aus. Verstehe ich das richtig, dass je nach Auswahl (Gelb) die verschiedenen Artikel und Kombinationen angezeigt werden?

Liebe Grüße
Katharina

 

Hallo,

Hier auch eine Lösung mit einer Formel in Office 365.

 

Hallo Katharina,
ja genau. In der Zelle ist ein Dropdown hinterlegt.

Gruß
Roger

 

Ich habs bisher leider nicht auf 2019 professional plus übertragen bekommen.

 

Kennt FILTER nicht

 

Hmm Schade. Habt Ihr noch Ideen für 2019?

 

Nach Angaben von Microsoft:

FILTER function
Excel for Microsoft 365 Excel for Microsoft 365 for Mac Excel for the web Excel 2021 Excel 2021 for Mac Excel 2019 Excel for iPad Excel for iPhone Excel for Android tablets Excel for Android phones.

Viele andere Funktionen meiner Formel kennt Excel 2019 nicht.

 

Hallo,

Hier mit VBA, drücke die Schaltfläche.

Code:

Sub hsv()
Dim sv, a, c, i As Long
sv = Sheets("Aufträge_Bundle").ListObjects(1).Range
ReDim b(UBound(sv) + 1)
  With CreateObject("scripting.dictionary")
        For i = 1 To UBound(sv)
            a = .Item(sv(i, 2))
            c = .Item(sv(1, 2))
             If IsEmpty(a) Then a = b
                 a(0) = sv(i, 2)
                 a(UBound(a)) = a(UBound(a)) + 1
                 a(a(UBound(a))) = sv(i, 1)
                   If IsEmpty(c) Then c = b
                     c(a(UBound(a))) = "Auftrag " & a(UBound(a))
                     .Item(sv(1, 2)) = c
                     .Item(sv(i, 2)) = a
        Next i
    Cells(1, 6).Resize(.Count, UBound(a) - 1) = Application.Index(.items, 0)
  End With
End Sub

 

Hallo Katharina,

Du hast nicht alle meine Fragen beantwortet und ich nehme an, daß Du mit Deine Aussage: I

wahrscheinlich die Anzahl der der Datensätze (Zeilen) meinst, oder?

Ich habe für die Beispieldaten (mit geänderten Mengendaten) eine einfache Pivottabelle erstellt, aus der man schnell z.B. die weiteren 3 aufgezeigten (und weitere) erstellen kann. So hat man schnell einen Überblick über die vorhanden Kombination. Wozu ich die jeweils die Pivottabellen nach den Werten der jeweils letzten Spalte abwärts sortiert habe.

 

Moin @HSV,
nur so als kleiner kollegialer Hinweis für Dein VBA:

deklariert sv, a und c als Variants, und nur i als Long. Im konkreten Beispiel macht das keinen Unterschied, an andere Stelle vielleicht dann doch.
Mikrodoo.. erwartet in VBA immer noch die dedizierte Deklaration jeder einzelnen Variablen. Sonst nimmt der VBE einfach variant an. Die richtige Deklaration wäre also:

Ich träume von dem Tag, an dem M...f das endlich ändert. (Keine Sorge ich habe auch noch andere Träume ... )

Ach - und noch einen Nachtrag: Du verzichtest auf Option Explicit, weshalb Deine Variable b einfach durchrauscht. Würde ich nicht machen. Die Option hilft sehr gegen Teppfiehler...
Grüße

 

Hallo d'r Bastler,

Richtig, nur i wird als Long deklariert, die anderen werden automatisch zu variant, wenn ich sie nicht deklariere.
Deshalb lasse ich sie weg.

Code:

Dim sv As Variant, a As Variant, c As Variant, i As Long