Hallo meine Freunde des Codierens,
ich möchte für meine Kleine Fifa Runde einen Turnierplaner erstellen mit Tabelle, Spielplan, Torschützenliste und Strafenliste erstellen. Die ersten 3 Dinge habe ich auch schon fertig und es klappt alles. Nun zu meinem Problem. Ich habe eine Userform erstellt, in der ich den Namen, den Verein, die Karten (Gelb, Gelb/Rot, Rot sowie eine Verletzung) eingefügt habe. Mit einer Abfrage habe ich auch schon geprüft und , wann ein Spieler gesperrt/verletzt ist. Nun folgendes Problem.
Ich habe einen Spieler erstellt, z.B. Messi von Barca. Dieser bekommt eine Gelbe Karte und wird auf ein Sheet eingetragen. Im nächsten Spiel bekommt er auch wieder eine Gelbe und ist somit im kommenden Spiel gesperrt. Wird in meinem Code auch so angezeigt und ausgeführt. Auf meinem Sheet steht nun, dass er 2 gelbe Karten hat. Dann wird er auf meinem Hauptsheet angezeigt und als "nicht spielberechtigt für den nächsten Spieltag angezeigt". Jetzt allerdings bleiben die 2 gelben Karten ja im Sheet stehen und wenn der Spieler nun Gelb/Rot oder Rot bekommt, dann werden die ja normalerweise zu dem Spieler hinzugeteilt, jedoch gibt dieser wieder aus, dass er gesperrt ist, weil er 2 gelbe Karten hat. Ich habe also erst die Prüfung auf (gerade) Gelbe Karten, Gelb/Rot, Rot und Verletzung. Wie kann ich nun umgehen, dass wenn er schon 2 Gelbe Karten hat die anderen Dinge prüfen soll? Hier mein Code:
Private Sub CommandButton1_Click()
Dim i, l, k, m, n As Integer
For i = 1 To 2
If Controls("textbox" & i) = "" Then
MsgBox "Bitte füllen Sie alle Felder aus!"
Exit Sub
End If
Next i
For k = 2 To 50
If TextBox1.Value = Sheets("Strafen").Range("A" & k) Then
Sheets("Strafen").Range("B" & k) = TextBox2.Value
Sheets("Strafen").Range("C" & k) = txtgelb.Value
Sheets("Strafen").Range("D" & k) = txtgelbrot.Value
Sheets("Strafen").Range("E" & k) = txtrot.Value
Sheets("Strafen").Range("F" & k) = txtverletzung.Value
If txtgelb.Value Mod 2 = 0 Then
ISTGERADE = True
MsgBox "Der Spieler " & TextBox1.Value & " ist für den nächsten Spieltag gesperrt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 1
Unload Me
Exit Sub
End Select
End If
Next m
Else
ISTGERADE = False
End If
If txtgelbrot.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für den nächsten Spieltag gesperrt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 1
Unload Me
Exit Sub
End Select
End If
Next m
End If
If txtrot.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für den nächsten Spieltag gesperrt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 1
Unload Me
Exit Sub
End Select
End If
Next m
End If
If txtverletzung.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für die nächsten beiden Spieltage verletzt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 2
Unload Me
Exit Sub
End Select
End If
Next m
End If
Sheets("Strafen").Activate
Sheets("5er-Gruppe").Activate
Unload Me
Exit Sub
End If
Next k
For l = 2 To 50
If Sheets("Strafen").Range("A" & l) = "" Then
Sheets("Strafen").Range("A" & l) = TextBox1.Value
Sheets("Strafen").Range("B" & l) = TextBox2.Value
Sheets("Strafen").Range("C" & l) = txtgelb.Value
Sheets("Strafen").Range("D" & l) = txtgelbrot.Value
Sheets("Strafen").Range("E" & l) = txtrot.Value
Sheets("Strafen").Range("F" & l) = txtverletzung.Value
If txtgelbrot.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für den nächsten Spieltag gesperrt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 1
Unload Me
Exit Sub
End Select
End If
Next m
End If
If txtrot.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für den nächsten Spieltag gesperrt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 1
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 1
Unload Me
Exit Sub
End Select
End If
Next m
End If
If txtverletzung.Value <> "0" Then
MsgBox "Der Spieler " & TextBox1.Value & " ist für die nächsten beiden Spieltage verletzt!"
For m = 21 To 25
If Sheets("5er-Gruppe").Range("C" & m) = "" Then
Select Case TextBox2.Value
Case Is = Sheets("5er-Gruppe").Range("H11").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I11").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H12").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I12").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H13").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I13").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H14").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I14").Value + 2
Unload Me
Exit Sub
Case Is = Sheets("5er-Gruppe").Range("H15").Value
Sheets("5er-Gruppe").Range("C" & m).Value = TextBox1.Value
Sheets("5er-Gruppe").Range("D" & m).Value = TextBox2.Value
Sheets("5er-Gruppe").Range("E" & m).Value = Sheets("5er-Gruppe").Range("I15").Value + 2
Unload Me
Exit Sub
End Select
End If
Next m
End If
Sheets("Strafen").Activate
Sheets("5er-Gruppe").Activate
Unload Me
Exit Sub
End If
Next l
End Sub
|