|
daaanke, mega seid ihr :)
Jetzt fragt er nicht mehr nach, aber leider fragt er dann später wenn es dann 2:1 steht und es fällt das 3:1 nicht mehr nach, ob es best of 5 oder best of 7 ist :(
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'"
If frage = 0 Then frage = MsgBox(Text, vbYesNo + vbQuestion, "Pokal")
If frage = vbNo Then
....
End If
If frage = vbYes Then
....
End If
End If
End If
If Range("B24") = 2 Then (hier das gleiche nuir für B1) --> Funktioniert mit if frage = 0 then
If Range("A24") <= 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'"
If frage = 0 Then 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 SiegerB1
Call spielende_msgbox
Call ZwischenergebnisLöschen
Call legsaveragelöschen
Call SatzergebnisLöschen
Call DreiDart_Click
Call DreiDart2_Click
End If
End If
End If
If Range("A24") = 3 Then (hier fragt er das ja dann leider nicht mehr...) geht da noch was? :)
If Range("B24") <= 2 Then
Text = "Ist das Spiel ein Halbfinale Best of 5," & vbCrLf
Text = Text & "dann Drücken Sie bitte 'Ja'" & vbCrLf & vbCrLf
Text = Text & "Ist das Spiel 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
...
End If
If frage = vbYes Then
...
End If
End If
End If
If Range("B24") = 3 Then (hier fragt er das ja dann leider nicht mehr...) geht da noch was? :)
If Range("A24") <= 2 Then
Text = "Ist das Spiel ein Halbfinale Best of 5," & vbCrLf
Text = Text & "dann Drücken Sie bitte 'Ja'" & vbCrLf & vbCrLf
Text = Text & "Ist das Spiel 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
....
End If
If frage = vbYes Then
...
End If
End If
End If
If Range("A24") = 4 Then
Text = "The Champion is" & vbCrLf & vbCrLf
Text = Text & Range("A1")
....
End If
If Range("B24") = 4 Then
Text = "The Champion is" & vbCrLf & vbCrLf
Text = Text & Range("B1")
....
End If
ActiveSheet.Protect
End Sub
das problem ist, dass ich da noch eine stufe drin habe...
Also best of 3, 5 und 7
wenn es 2:0 steht und man drückt, dass es best of 5 ist, soll er erst bei einer 3:irgendwas fragen ob es ein best of 5 spiel ist
steht es dann 3:1 und es ist kein best of 5 spiel, sondern best of 7, dann soll er wiederrum bei 3:2 nicht fragen, sondern erst, wenn einer 4 hat :)
Verständlich?
LG
|