Herbers CD, 047799, Kombinationen
19.06.2005 16:42:31
Erich
ich suche eine Lösung mit der ich die Zahlenkombinationen für
4 Spalten
mit den Zahlen 0 - 9 ermitteln kann. Auf der CD habe ich gefunden:
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
Jetzt habe ich das umgewandelt auf:
Sub Kombinationen()
Dim sArr As Variant
Dim i As Integer, y As Integer, x As Integer
Dim z As Integer, R As Integer, a As Integer, b As Integer, c As Integer, d As Integer, e As Integer, f As Integer
sArr = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0")
For i = 0 To UBound(sArr)
For y = 0 To UBound(sArr)
For x = 0 To UBound(sArr)
For z = 0 To UBound(sArr)
For a = 0 To UBound(sArr)
For b = 0 To UBound(sArr)
For c = 0 To UBound(sArr)
For d = 0 To UBound(sArr)
For e = 0 To UBound(sArr)
For f = 0 To UBound(sArr)
R = R + 1
Cells(R, 1) = _
sArr(i) & sArr(0 + y) & sArr(0 + x) & sArr(0 + z) & sArr(0 + a) & sArr(0 + b) & sArr(0 + c) & sArr(0 + d) & sArr(0 + e) & sArr(0 + f)
Next f
Next e
Next d
Next c
Next b
Next a
Next z
Next x
Next y
Next i
End Sub
Wo muss ich denn ansetzen, dass die Begrenzung der Zahlenreihe auf 4 erfolgt. Die
Lösung müsste so losgehen:
1111
1112
1113
1114
usw.
Besten Dank für eine Hilfe!
mfg
Erich
EXCEL-Shareware und Freeware: http://www.toolex.de
EXCEL und Lottogewinne machen glücklich: http://48678.rapidforum.com
Anzeige