Spielautomat
06.02.2013 20:02:34
michael
ich habe eine frage und zwar versuche ich mich gerade in VBA jetzt versuche ich einen "Spielautomaten" zu "generieren"
Und zwar soll das gute Ding 3 Zufallszahlen generieren und sie in Spalte A2 bis C2 schreiben und bei
zwei gleichen Zahlen "gewinn 5o cent" in einer msgbox ausgeben
bei drei gleichen Zahlen "gewinn 1 euro" in einer msgbox ausgben
was ich bisher zustande gebracht habe ist folgendes
Option Explicit
Sub ZufallszahlenErzeugen()
Dim Bereich As Range
Dim zelle As Range
Set Bereich = Range("A2:C2")
For Each zelle In Bereich
zelle.Value = Int((6 * Rnd) + 1)
Next zelle
If "A2" = "B2" Then MsgBox ("Gewinn 1 Euro")
If "A2"= "C2" then msgbox ("Gewinn 50 cent)
End Sub