Gruppe
Allgemein
Problem
Wie kann ich alle Kombinationsmöglichkeiten einer Zeichenfolge von AAAA bis DDDD in einer Tabelle auflisten?
StandardModule: Modul1
Sub Kombinationen()
Dim sArr As Variant
Dim i As Integer, y As Integer, x As Integer
Dim z As Integer, R As Integer
sArr = Array("A", "B", "C", "D")
For i = 0 To UBound(sArr)
For y = 0 To UBound(sArr)
For x = 0 To UBound(sArr)
For z = 0 To UBound(sArr)
R = R + 1
Cells(R, 1) = _
sArr(i) & sArr(0 + y) & sArr(0 + x) & sArr(0 + z)
Next z
Next x
Next y
Next i
End Sub