Excel 2016: Wortkombinationen aus Listen generieren

[pat86]

Hallo zusammen,

Ich würde gerne aus mehreren Spalten (als Beispiel A und B) einen Output (Spalte C) mit allen möglichen Kombinationsmöglcihkeiten ausgeben. 
Als Beispiel anbei ein Bild, was das Problem verdeutlichen soll. Meine eigentliche Liste ist natürlich deutlich größer und hat 5 Spalten. 

Hat viell. jemand einen Tipp, wie man das umsetzen könnte? Leider finde ich in Excel und im Internet hierzu keine Lösung und komme nicht weiter.

Über Hilfe wäre ich wirklich überglücklich!

[MisterBurns]

Leider finde ich in Excel und im Internet hierzu keine Lösung 

Dann hast du schlecht gesucht, das Stichwort lautet "Permutationen":
http://www.office-loesung.de/ftopic455234_0_0_asc.php
https://www.extendoffice.com/de/document...tions.html
http://www.herber.de/forum/archiv/400to4...ieren.html

[snb]

Code:

Sub M_snb()
   sn = Cells(1).CurrentRegion

   For j = 1 To UBound(sn)
      For jj = 1 To UBound(sn)
        c00 = c00 & vbLf & sn(j, 1) & sn(jj, 2)
      Next
    Next

    MsgBox c00
End Sub

[MisterBurns]

Hier hab ich noch was gefunden, was ziemlich genau dein Problem löst:
http://www.herber.de/forum/archiv/1104to...ilden.html


Umgemünzt auf deine Vorgaben mit 5 Spalten:

Code:

Sub tt()
Dim i As Long, j As Long, k As Long, l As Long, m As Long

 For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   For j = 1 To Cells(Rows.Count, 2).End(xlUp).Row
     For k = 1 To Cells(Rows.Count, 3).End(xlUp).Row
       For l = 1 To Cells(Rows.Count, 4).End(xlUp).Row
           For m = 1 To Cells(Rows.Count, 5).End(xlUp).Row
               Cells(Rows.Count, 7).End(xlUp).Offset(1) = _
                   Cells(i, 1) & Cells(j, 2) & Cells(k, 3) & Cells(l, 4) & Cells(m, 5)
           Next m
       Next l
     Next k
   Next j
 Next i

End Sub