also, ich habe diesen Code für ein Formular geschrieben.
Es haut schon gut hin, dass bei jedem Klick die Punktezahl erhöht wird, auch funktioniert es, dass wenn die Zahl 0 (Case4) erreicht wird. "Games" um 1 erhöht wird.
Ich suche nach einer Schleife die mir, wenn ich bei 0 angelangt bin, beim nächsten Klick wieder auf 20 hüpft.
Mit einer Do Loop Until Schleife hängt sich mein Excel auf, und mit einer For Next Schleife komm ich auch auf keinen grünen Zweig.
Das ist der Code:
Private Sub SpielA_Click()
a = a + 1
Select Case a
Case 1: aScore = 20
Case 2: aScore = 35
Case 3: aScore = 50
Case 4: aScore = 0
End Select
PunktA.Value = aScore
PunktB.Value = bScore
GameA.Value = 0
If aScore = 0 Then
GameA.Value = GameA.Value + 1
End If
End Sub