Clever-Excel-Forum

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!

Zitat: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

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

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

pat86

MisterBurns

snb

MisterBurns