Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Excel 2016: Wortkombinationen aus Listen generieren
#1
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!


Angehängte Dateien Thumbnail(s)
   
Antwortento top
#2
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
Schöne Grüße
Berni
Antwortento top
#3
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
Zum übersetzen von Excel Formeln:

http://dolf.trieschnigg.nl/excel/index.p...gids=en+de
Antwortento top
#4
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
Schöne Grüße
Berni
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste