|
Schreibe in ein MODUL:
public frage as integer
und ändere die "If frage=0"-Zeile wie folgt:
Private Sub gewinner() --> dieser sub wird jedes mal angesprochen, wenn ich einen button "übernehmen" drücke
ActiveSheet.Unprotect
If Range("A24") = 2 Then --> hier schaut er in der zelle ob, eine 2 da ist und fragt dann nach ob es ein normal spiel ist, drückt man ja, dann ist das spiel beendet und die felder A24 und B24 werden gelöscht, bei nein bleiben die zahlen stehen und das spiel geht weiter.
If Range("B24") <= 1 Then --> HIER ist mein Problem, steht es 2:0 und das spiel ist best of 5, dann fragt er beim 2:1 trotzdem nochmal nach
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'"
If frage=0 then frage = MsgBox(Text, vbYesNo + vbQuestion, "Pokal")
If frage = vbNo Then
Call löschen (Hier löscht er andere felder, die hierfür egal sind :) )
End If
If frage = vbYes Then
Call SiegerA1 --> hier wird erklärt, dass der Spiler der in Feld A1 steht gewonnen hat
End If
End If
End If
|