|
Hallo,
habe folgendes Problem:
Private Sub gewinner()
ActiveSheet.Unprotect
If Range("A24") = 2 Then
If Range("B24") <= 1 Then
Text = "Ist das Spiel ein normales Pokalspiel, Best of 3," & vbCrLf
Text = Text & "dann Drücken Sie bitte 'Ja'" & vbCrLf & vbCrLf
Text = Text & "Ist das Spiel ein Halbfinale Best of 5," & vbCrLf
Text = Text & "oder ein Finale Best of 7," & vbCrLf
Text = Text & "dann Drücken Sie bitte 'Nein'"
frage = MsgBox(Text, vbYesNo + vbQuestion, "Pokal")
If frage = vbNo Then
Call DreiDart_Click
Call DreiDart2_Click
Call löschen
End If
If frage = vbYes Then
Call besterdreidartaverage
Call SiegerA1
Call spielende_msgbox
Call satz
Call ZwischenergebnisLöschen
Call legsaveragelöschen
Call SatzergebnisLöschen
Call DreiDart_Click
Call DreiDart2_Click
End If
End If
End If
...
Wenn es 2:0 steht fragt er noch ob es best of 3 ist... verneint man dieses und kurz danach steht es 2:1 und er fragt wieder...
weiß jemand wie man das umgehen kann?
Hoffe man versteht mein Problem, sonst gerne fragen :)
Danke schon mal im Voraus :)
Gruß Stephan
|