Versuchen ein Lotto Programm in Excel makro zu programmieren jédoch klappt es nicht ganz!
unten seht ihr das programm
wir wollen 6 zahlen vom user eingeben lassen und sie dann mit den zufallszahlen vergleichen lassen!
habt ihr tipps oder schon ein fertiges programm??
vielen dank
bis dann
fh bochum
Option Explicit
Sub lottozahlen()
Dim glückszahl1 As Integer
Dim glückszahl2 As Integer
Dim glückszahl3 As Integer
Dim glückszahl4 As Integer
Dim glückszahl5 As Integer
Dim glückszahl6 As Integer
Dim zahlen(6) As Integer
Dim zahl As Integer
Dim i As Integer
Dim c As Integer
glückszahl1 = InputBox("Bitte geben Sie Ihre erste Glückszahl zwischen 0 und 49 ein")
glückszahl2 = InputBox("Bitte geben Sie Ihre zweite Glückszahl zwischen 0 und 49 ein")
glückszahl3 = InputBox("Bitte geben Sie Ihre dritte Glückszahl zwischen 0 und 49 ein")
glückszahl4 = InputBox("Bitte geben Sie Ihre vierte Glückszahl zwischen 0 und 49 ein")
glückszahl5 = InputBox("Bitte geben Sie Ihre fünfte Glückszahl zwischen 0 und 49 ein")
glückszahl6 = InputBox("Bitte geben Sie Ihre sechste Glückszahl zwischen 0 und 49 ein")
MsgBox ("Die gesuchten Zahl waren: " & zahlen(6))
If glückszahl1 = zahlen(6) Then
MsgBox ("Sie haben einen richtigen! ")
nochmal:
zahl = Int(49 * Rnd()) + 1
For c = 1 To 6
If zahl = zahlen(c) Then GoTo nochmal
Next c
zahlen(i) = zahl
For c = 1 To 6
Next i
For i = 1 To 6
Cells(i, 1) = zahlen(i)
End Sub