Alle Kombinationen auflisten

[FabianN]

Hallo, ich versuche gerade eine Tabelle zu erstellen die alle möglichen Kombinationen abdeckt. Ich habe 16 Verschiedene Änderungen gegeben und möchte nun alle möglichen Kombinationen in einer Tabelle ausgeben. Hat mir jemand einen Tipp wie ich das machen könnte?

LG

[steve1da]

Hola,

bei der mehr als schwammigen Beschreibung:
https://www.google.com/search?q=excel+al...+auflisten&oq=excel+alle+kombin&aqs=chrome.2.69i57j0i512l5j0i22i30j69i60.4967j0j4&sourceid=chrome&ie=UTF-8
Gruß,
steve1da

[FabianN]

Ich habe mit folgendem Code versucht alle Kombinationen aufzulisten:

Sub ListAllCombinations()
'Updateby Extendoffice
Dim xDRg1, xDRg2, xDRg3, xDRg4, xDRg5, xDRg6, xDRg7, xDRg8, xDRg9, xDRg10, xDRg11, xDRg12, xDRg13, xDRg14, xDRg15, xDRg16 As Range
Dim xRg  As Range
Dim xStr As String
Dim xFN1, xFN2, xFN3, xFN4, xFN5, xFN6, xFN7, xFN8, xFN9, xFN10, xFN11, xFN12, xFN13, xFN14, xFN15, xFN16 As Integer
Dim xSV1, xSV2, xSV3, xSV4, xSV5, xSV6, xSV7, xSV8, xSV9, xSV10, xSV11, xSV12, xSV13, xSV14, xSV15, xSV16 As String
Set xDRg1 = Range("A2")  'First column data
Set xDRg2 = Range("B2")  'Second column data
Set xDRg3 = Range("C2")  'Third column data
Set xDRg4 = Range("D2")
Set xDRg5 = Range("E2")
Set xDRg6 = Range("F2")
Set xDRg7 = Range("G2")
Set xDRg8 = Range("H2")
Set xDRg9 = Range("I2")
Set xDRg10 = Range("J2")
Set xDRg11 = Range("K2")
Set xDRg12 = Range("L2")
Set xDRg13 = Range("M2")
Set xDRg14 = Range("N2")
Set xDRg15 = Range("O2")
Set xDRg16 = Range("P2")

xStr = ","  'Separator
Set xRg = Range("A4")  'Output cell
For xFN1 = 1 To xDRg1.Count
    xSV1 = xDRg1.Item(xFN1).Text
    For xFN2 = 1 To xDRg2.Count
        xSV2 = xDRg2.Item(xFN2).Text
      For xFN3 = 1 To xDRg3.Count
          xSV3 = xDRg3.Item(xFN3).Text
        For xFN4 = 1 To xDRg4.Count
            xSV4 = xDRg4.Item(xFN4).Text
          For xFN5 = 1 To xDRg5.Count
              xSV5 = xDRg5.Item(xFN5).Text
            For xFN6 = 1 To xDRg6.Count
                xSV6 = xDRg6.Item(xFN6).Text
              For xFN7 = 1 To xDRg7.Count
                  xSV7 = xDRg7.Item(xFN7).Text
                For xFN8 = 1 To xDRg8.Count
                    xSV8 = xDRg8.Item(xFN8).Text
                  For xFN9 = 1 To xDRg9.Count
                      xSV9 = xDRg9.Item(xFN9).Text
                    For xFN10 = 1 To xDRg10.Count
                        xSV10 = xDRg10.Item(xFN10).Text
                      For xFN11 = 1 To xDRg11.Count
                          xSV11 = xDRg11.Item(xFN11).Text
                        For xFN12 = 1 To xDRg12.Count
                            xSV12 = xDRg12.Item(xFN12).Text
                          For xFN13 = 1 To xDRg13.Count
                              xSV13 = xDRg13.Item(xFN13).Text
                            For xFN14 = 1 To xDRg14.Count
                                xSV14 = xDRg14.Item(xFN14).Text
                              For xFN15 = 1 To xDRg15.Count
                                  xSV15 = xDRg15.Item(xFN15).Text
                                For xFN16 = 1 To xDRg16.Count
                                    xSV16 = xDRg16.Item(xFN16).Text
        xRg.Value = xSV1 & xStr & xSV2 & xStr & xSV3 & xStr & xSV4 & xStr & xSV5 & xStr & xSV6 & xStr & xSV7 & xStr & xSV8 & xStr & xSV9 & xStr & xSV10 & xStr & xSV11 & xStr & xSV12 & xStr & xSV13 & xStr & xSV14 & xStr & xSV15 & xStr & xSV16
        Set xRg = xRg.Offset(1, 0)
       
                                Next
                              Next
                            Next
                          Next
                        Next
                      Next
                    Next
                  Next
                Next
              Next
            Next
          Next
        Next
      Next
    Next
Next
End Sub




Ich versuche alle Kombinationen die möglich sind aufzulisten steht bsp in A auch ein a und in P auch ein p

Möchte ich:
a
a,b
a,b,c
a,b,c,d...
...
a,b,c,d,e....,p

und auch f,g,h,....

aufgelistet bekommen, aktuell bekomme ich einfach nur das angezeigt:

A,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p

[snb]

Wozu ?

[LCohen]

office-hilfe.com/support/threads/lambda-udf-ben-def-tabellenfunktionen-ohne-vba-xl4m.36909/#COMBIN_LIST
a) =LAMBDA() bis max. 6 Items
b) Link zu slowboarder VBA-Rekursion (ohne Limit, also besser)