VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
Turnierplan erstellen / Problem Strafen	05.03.2014 23:15:17	schenkel

Ansicht des Beitrags:

Von:
schenkel

Datum:
05.03.2014 23:15:17

Views:
1576

Rating:

Antwort:

Thema:
Turnierplan erstellen / Problem Strafen

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

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
Turnierplan erstellen / Problem Strafen	05.03.2014 23:15:17	schenkel