[Haseron]

Achja hier der Code ^^

Sub Makro1()

Dim i As Integer
Dim n

n = 1
[A:A].ClearContents
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)
    
    If i > a Then
    MsgBox "Grösser"

    With Cells(n, 1)
        .Value = "Versuch " & n & " war " & a & ", die Lösung ist größer."
        .Font.Color = -16776961
        .Font.TintAndShade = 0
    End With
   
    End If

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