Supportnet / Forum / Tabellenkalkulation

Hallo kann mir jemand weiterhelfen ??? wie bringe ich ecxel dazu mir aus z.B. 10 zahlen ein vollsysten zum lotto spielen zu erstellen

hi nobody :)

kleines beispiel :)

es werden 10 zahlen generiert und bei doppelten treffern neu gezogen,ausgabe erfolgt a1-a10.

gruss nighty

Sub makro01()
Randomize Timer
Dim zahl(10)
For t = 1 To 10
zahl(t) = Int(Rnd * 49) + 1
For t1 = 1 To t - 1
If zahl(t) = zahl(t1) Then
t1 = t - 1
t = t - 1
End If
Next t1
Range("A" & t) = zahl(t)
Next t
End Sub

hi nobody :)

oder mit aufsteigender sortierung :)

gruss nighty

Sub makro01()
Randomize Timer
Dim zahl(10)
Dim sort(17)
For i = 1 To 10
zahl(i) = Int(Rnd * 49) + 1
For i1 = 1 To i - 1
If zahl(i) = zahl(i1) Then
i1 = i - 1
i = i - 1
End If
Next i1
Range("A" & i) = zahl(i)
Next i
For t% = 1 To 10
sort(t%) = Range("A" & t%)
Next t%
For t% = 1 To 10
For t1% = 1 To 10
If sort(t1%) > sort(t%) Then
sort(0) = sort(t%)
sort(t%) = sort(t1%)
sort(t1%) = sort(0)
End If
Next t1%
Next t%
For t% = 1 To 10
Range("A" & t%) = sort(t%)
Next t%
End Sub

hi nobody :)

dann noch was lustiges :)

wuerfelt eine bestehende markierung durcheinander :)

gruss nighty

Sub Makro1()
ScreenUpdating = False
Randomize Timer
Dim b$(2)
g% = Len(ActiveWindow.RangeSelection.Address)
b1$ = ActiveWindow.RangeSelection.Address
For e% = 1 To g%
If Mid$(b1$, e%, 1) = ":" Then
w = w + 1
e% = e% + 1
End If
If Mid$(b1$, e%, 1) <> "$" Then
b$(w) = b$(w) + Mid$(b1$, e%, 1)
End If
Next e%
hj0% = Asc(Mid$(b$(1), 1, 1)) - Asc(Mid$(b$(0), 1, 1)) + 1
hj1% = (Val(Mid$(b$(1), 2, Len(b$(1)))) + 1 - Val(Mid$(b$(0), 2, Len(b$(0)))))
fg = hj0% * hj1% * 2
For t = 1 To hj0% * hj1% * 2
a0% = Asc(Mid$(b$(1), 1, 1))
a2% = a0% - 65
a1% = Int(Rnd * a2%) + 66
k1% = a1%
a0% = Val(Mid$(b$(1), 2, Len(b$(1))))
a3% = Val(Mid$(b$(0), 2, Len(b$(0))))
a2% = a0% - a3%
a1% = Int(Rnd * a2%) + a3%
k2% = a1%
a0% = Asc(Mid$(b$(1), 1, 1))
a2% = a0% - 65
a1% = Int(Rnd * a2%) + 66
k3% = a1%
a0% = Val(Mid$(b$(1), 2, Len(b$(1))))
a3% = Val(Mid$(b$(0), 2, Len(b$(0))))
a2% = a0% - a3%
a1% = Int(Rnd * a2%) + a3% + 1
k4% = a1%
a1a$ = Range(Chr$(k1%) & k2%)
a2a$ = Range(Chr$(k3%) & k4%)
Range(Chr$(k1%) & k2%) = a2a$
Range(Chr$(k3%) & k4%) = a1a$
Next t
ScreenUpdating = True
End Sub

hi alle :)

mehr faellt mir erst mal nicht ein :)

gruss nighty :)

• File System Object
• lotto zahlen anzeigen