[eitch100]

Du hast den Code zum Verändern der Farbe einfach irgendwo in den Originalcode hineinkopiert. Du hättest den Originalcode mit dem neuen ersetzen müssen... Also der unten rot markierte muss raus und dahin, wo er grün markiert ist... Sowas könntest du dann für zu große Versuche und die richtige Lösung in anderen Farben auch noch machen... Und aus ClearContents muss noch Clear werden.

Sub Makro1()

Dim i As Integer
Dim n

n = 1
[A:A].Clear 'Contents
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"

   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
    
    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