|
hallo zusammen,
stehe wieder vor einem Problem.
Habe folgenden Code in Excel:
|
Code: |
Sub ZufallUndLotto()
Dim DatR, maxAnz, maxZahl, Zahl
maxAnz = 26 'Anzahl einzelner Zahlen (6)
maxZahl = 49 'Größte Zahl (CH; 45, D; 49)
DatR = 1 'Anzahl Datenreihen (5)
[A1:A27] = "" 'Datenbereich Löschen (anpassen)
For d = 1 To DatR
For i = 1 To maxAnz
neu:
Randomize ' Zufallszahlengenerator initialisieren.
Zahl = Int((maxZahl * Rnd) + 1)
'Kontrolle ob doppelte vorhanden
For x = 1 To i
If Zahl = Cells(x, d * 1) Then GoTo neu 'falls doppelt
Next x
Cells(x, d * 1) = Zahl
Next i
Next d
End Sub |
kann mir jemand hier eine Schleife einbauen....
wenn "Tabelle2!K5" kleiner als 100 dann nächste soll eine Neue Reihe ermittelt werden.
wenn grösser als 100 dann reihe kopieren und in Tabelle4 einfügen usw.
schöner wäre es natürlich wenn er nach und nach jede Kombination durchprobieren würde.
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,27
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,28
usw.
vielen dank im vorraus
|