Excel komplexe Kombinationenmöglichkeiten zählen!

[Ego]

siehe unten

[Ego]

Hallo Alexander,

schnell und dreckig

Hier einmal eine Lösung in der nur das Produkt SIE nicht berücksichtigt wird:

du kannst das alte Unterprogramm "Recursiv" durch die unten stehenden Version austauschen. Ich habe nur ein "if..." und ein "end if" eingesetzt.

Code:

Sub Recursiv(ByVal intEbene As Integer, ByVal intPos As Integer)
Dim intI As Integer
Dim intJ As Integer
For intJ = intPos To UBound(strArr)
    If strArr(intJ) <> "SIE" Then
        strAkt(intEbene) = strArr(intJ)
        varKey = strAkt(LBound(strAkt))
        For intI = LBound(strAkt) + 1 To intEbene
            varKey = varKey & "&" & strAkt(intI)
        Next intI
        Dict(varKey) = Dict(varKey) + 1
        If intEbene < UBound(strArr) And intJ < UBound(strArr) And intEbene < intAnzProd - 1 Then
            Call Recursiv(intEbene + 1, intJ + 1)
        End If
    End If
Next intJ

Variabler wäre es, wenn ihr zusätzlich eine Liste mit nicht zu berücksichtigenden Produkten führen würdet und das Programm diese Liste berücksichtigt.