Weiß aber immer noch nicht welches konkrete Ergebnis damit erzielt werden will.
Folgendes Makro schreibt alle Lotto Kombinationen in ein Array (was auch immer man damit anfangen will):
Private Sub lottoKombi()
Dim a1&, a2&, a3&, a4&, a5&, a6&
Dim i&, s1#, s2#, max#
Dim AC() As Byte
s1 = 1
s2 = 1
For i = 0 To 5
s1 = s1 * (i + 1)
s2 = s2 * (49 - i)
Next
max = s2 / s1
ReDim AC(0 To max - 1, 5)
i = 0
For a1 = 1 To 49
For a2 = a1 To 48
For a3 = a2 To 47
For a4 = a3 To 46
For a5 = a4 To 45
For a6 = a5 To 44
AC(i, 0) = a1
AC(i, 1) = a2
AC(i, 2) = a3
AC(i, 3) = a4
AC(i, 4) = a5
AC(i, 5) = a6
i = i + 1
Next
Next
Next
Next
Next
Next
End Sub
|