Bitte um Hilfe Lotto
20.08.2005 00:03:09
molle
Ein Lottospielschein Vollsysrem hat 6 Kästchen.
mit diesem Code werden 7 Zahlen gezogen
Dim zuf As Integer
Dim arr(8) As Variant
Dim az As Integer
Dim merk As Long
Dim za As Integer
Dim zei As Integer
Range("K38:S43") = ""
zei = 37
Do While zei zuf = Int((49 - 1 + 1) * Rnd + 1)
merk = 0
' prüfen ob Zahl schon vorhanden
For az = 0 To za
If zuf = arr(az) Then merk = merk + 1
Next az
' Zahl in Array schreiben
If merk = 0 Then
arr(za) = zuf
za = za + 1
End If
If za > 7 Then
zei = zei + 1
Range("D" & zei, "j" & zei) = arr
za = 0
' Zeile aufsteiegnd sortieren
Range("D" & zei, "j" & zei).Sort Key1:=Range("D" & zei), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
End If
Loop
Kann mir ein Profi den Code so Umschreiben das ich bei Klick auf das Makro nochmal 7 Zahlen ziehe ,nur sollen die 7 Zahlen eine Zeile weiter unten
eingefügt werden.Die esten zahlen dürfen aber nicht gelöscht werden.
mfg Molle