es funktioniert auch bis zu 24 mal, sprich das letzte was mir das programm ausgibt ist, das die münze 24mal hintereinander kopf anzeigt, dies wird auch in recht kurzer zeit erreicht. weiter gehts nicht. woran liegt es?
Sub zufall()
b = 2
t = 0
g = 0
Range("A1:F1").ClearContents
Randomize
Do Until t = 30
a = Int(Rnd * 2)
If a = b Then
t = t + 1
If t > g Then
g = t
Worksheets("Tabelle1").Cells(1, 3) = g
End If
Else
t = 0
End If
b = a
d = d + 1
Loop
Worksheets("Tabelle1").Cells(1, 1) = d
End Sub
tausend dank für eure hilfe