[eitch100]

Zitat von Haseron

Das Spiel sollte nicht zu komplex sein aber auch nicht zu einfach.

Da wird dir so keiner helfen können, weil niemand weiß, was für dich schwer oder leicht ist und was du für Kenntnisse in Excel/VBA hast. Am Besten du googlst erstmal danach, um dir Anregungen zu holen. Da gibt es die einfachsten Zahlenratespiele oder Kopfrechnenspiele bis zu Umsetzungen bekannter Klassiker wie Minesweeper...

Hier ist mal ein kleiner VBA_Code zum Zahlenraten... also einen Commandbutton anlegen und folgenden Code einfügen...

Private Sub CommandButton1_Click()

Dim i As Integer
Dim n

n = 1
[A:A].ClearContents
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)


Do

a = InputBox("Bitte raten.")
    
    If i > a Then
    MsgBox "Grösser"
    Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist größer."
    End If
    
    If i < a Then
    MsgBox "Kleiner"
    Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist kleiner."
    End If
    
    If i = a Then
    MsgBox "Gewonnen"
    Cells(n, 1).Value = a & " ist richtig! Das waren " & n & " Versuche."
    Exit Sub 'Damit es keine Endlosschleife wird
    End If
 
    n = n + 1
    
Loop

End Sub