Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Zeichenfolge AAAA bis DDDD listen
Problem
Wie kann ich alle Kombinationsmöglichkeiten einer Zeichenfolge von AAAA bis DDDD in einer Tabelle auflisten?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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