Private
Sub
CommandButton2_Click()
End
End
Sub
Private
Sub
UserForm_Initialize()
Label1.Caption = Heim
Label2.Caption = Gast
Label4.Caption = Titel
Heim_Gewinnsatz = Heim_Anz_Gewinnsatz
Gast_Gewinnsatz = Gast_Anz_Gewinnsatz
If
Heim_Gewinnsatz > 0
Or
Gast_Gewinnsatz > 0
Then
Spielkorrektur =
True
Heim_Gewinnsatz_vorheriger_Wert = Heim_Gewinnsatz
Gast_Gewinnsatz_vorheriger_Wert = Gast_Gewinnsatz
Else
Spielkorrektur =
False
End
If
Image1.Picture = LoadPicture(
"C:\Users\Markus\Pictures\Bilder\Bild1.jpg"
)
Image1.PictureSizeMode = fmPictureSizeModeZoom
End
Sub
Private
Sub
Heim_Gewinnsatz_KeyPress(
ByVal
KeyAscii
As
MSForms.ReturnInteger)
Select
Case
KeyAscii
Case
48
To
57:
If
InStr(1, Heim_Gewinnsatz,
","
) > 0
Then
KeyAscii = IIf(InStr(1, Heim_Gewinnsatz,
","
) > Len(Heim_Gewinnsatz) - 2, KeyAscii, 0)
End
If
Case
44, 46: KeyAscii = IIf(InStr(1, Heim_Gewinnsatz,
","
) = 0, 44, 0)
Case
45: KeyAscii = IIf(Len(Heim_Gewinnsatz), 0, 45)
Case
Else
: KeyAscii = 0
End
Select
End
Sub
Private
Sub
Gast_Gewinnsatz_KeyPress(
ByVal
KeyAscii
As
MSForms.ReturnInteger)
Select
Case
KeyAscii
Case
48
To
57:
If
InStr(1, Gast_Gewinnsatz,
","
) > 0
Then
KeyAscii = IIf(InStr(1, Gast_Gewinnsatz,
","
) > Len(Gast_Gewinnsatz) - 2, KeyAscii, 0)
End
If
Case
44, 46: KeyAscii = IIf(InStr(1, Gast_Gewinnsatz,
","
) = 0, 44, 0)
Case
45: KeyAscii = IIf(Len(Gast_Gewinnsatz), 0, 45)
Case
Else
: KeyAscii = 0
End
Select
End
Sub
Private
Sub
CommandButton1_Click()
Dim
Team_Gast
As
String
Dim
Team_Heim
As
String
Dim
Anz_Gewinnsatze
As
Integer
Dim
Gast_finden
As
Range
Dim
Heim_finden
As
Range
Anz_Gewinnsatze = Tabelle13.Range(
"C7"
).Value
Heim_Anz_Gewinnsatz = Heim_Gewinnsatz.Value
Gast_Anz_Gewinnsatz = Gast_Gewinnsatz.Value
If
Heim_Anz_Gewinnsatz = Gast_Anz_Gewinnsatz
Then
MsgBox
"Es darf kein Unentschieden eingetragen werden!"
, vbExclamation + vbOKOnly,
"Fehler"
Exit
Sub
End
If
If
Heim_Anz_Gewinnsatz > Anz_Gewinnsatze
Or
Gast_Anz_Gewinnsatz > Anz_Gewinnsatze
Then
MsgBox
"Die maximal mögliche Anzahl Gewinnsätze beträgt "
& Anz_Gewinnsatze &
"."
& vbNewLine &
"Bitte korrigieren oder ggfs. anpassen in Tabelle Grunddaten."
, vbCritical + vbOKOnly,
"Achtung"
Exit
Sub
End
If
If
Finale8 =
True
Then
Tabelle4.Cells(SpielZeile, 16).Value = Heim_Anz_Gewinnsatz
Tabelle4.Cells(SpielZeile, 18).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
If
Finale16 =
True
Then
Tabelle9.Cells(SpielZeile, 16).Value = Heim_Anz_Gewinnsatz
Tabelle9.Cells(SpielZeile, 18).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
If
Finale32 =
True
Then
Tabelle10.Cells(SpielZeile, 17).Value = Heim_Anz_Gewinnsatz
Tabelle10.Cells(SpielZeile, 19).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
If
Finale8N =
True
Then
Tabelle6.Cells(SpielZeile, 16).Value = Heim_Anz_Gewinnsatz
Tabelle6.Cells(SpielZeile, 18).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
If
Finale16N =
True
Then
Tabelle14.Cells(SpielZeile, 16).Value = Heim_Anz_Gewinnsatz
Tabelle14.Cells(SpielZeile, 18).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
If
Finale32N =
True
Then
Tabelle15.Cells(SpielZeile, 17).Value = Heim_Anz_Gewinnsatz
Tabelle15.Cells(SpielZeile, 19).Value = Gast_Anz_Gewinnsatz
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Unload Userform1
Exit
Sub
End
If
Application.EnableEvents =
False
Application.ScreenUpdating =
False
Team_Heim = Label1.Caption
Team_Gast = Label2.Caption
With
Tabelle5.Range(
"M:M"
)
Set
Heim_finden = .Find(Team_Heim, LookIn:=xlValues, LookAt:=xlWhole)
Set
Gast_finden = .Find(Team_Gast, LookIn:=xlValues, LookAt:=xlWhole)
If
Heim_finden
Is
Nothing
Then
GoTo
fehler
If
Gast_finden
Is
Nothing
Then
GoTo
fehler
If
Spielkorrektur =
True
Then
With
Tabelle5
Heim_Gewinnsatz_vorheriger_Wert = Heim_Gewinnsatz_vorheriger_Wert
Gast_Gewinnsatz_vorheriger_Wert = Gast_Gewinnsatz_vorheriger_Wert
.Cells(Heim_finden.Row, 15).Value = .Cells(Heim_finden.Row, 15).Value - 1
.Cells(Gast_finden.Row, 15).Value = .Cells(Gast_finden.Row, 15).Value - 1
If
Heim_Gewinnsatz_vorheriger_Wert > Gast_Gewinnsatz_vorheriger_Wert
Then
.Cells(Heim_finden.Row, 16).Value = .Cells(Heim_finden.Row, 16).Value - 1
Else
.Cells(Gast_finden.Row, 16).Value = .Cells(Gast_finden.Row, 16).Value - 1
End
If
.Cells(Heim_finden.Row, 17).Value = .Cells(Heim_finden.Row, 17).Value - Heim_Gewinnsatz_vorheriger_Wert
.Cells(Gast_finden.Row, 17).Value = .Cells(Gast_finden.Row, 17).Value - Gast_Gewinnsatz_vorheriger_Wert
End
With
Spielkorrektur =
False
End
If
With
Tabelle5
If
.Cells(Heim_finden.Row, 15).Value =
""
Then
.Cells(Heim_finden.Row, 15).Value = 1
Else
.Cells(Heim_finden.Row, 15).Value = .Cells(Heim_finden.Row, 15).Value + 1
End
If
If
Heim_Anz_Gewinnsatz > Gast_Anz_Gewinnsatz
Then
If
Tabelle5.Cells(Heim_finden.Row, 16).Value =
""
Then
Tabelle5.Cells(Heim_finden.Row, 16).Value = 1
Else
Tabelle5.Cells(Heim_finden.Row, 16).Value = Tabelle5.Cells(Heim_finden.Row, 16).Value + 1
End
If
Else
If
Tabelle5.Cells(Heim_finden.Row, 16).Value =
""
Then
Tabelle5.Cells(Heim_finden.Row, 16).Value = 0
End
If
End
If
If
.Cells(Heim_finden.Row, 17).Value =
""
Then
.Cells(Heim_finden.Row, 17).Value = Heim_Anz_Gewinnsatz
Else
.Cells(Heim_finden.Row, 17).Value = .Cells(Heim_finden.Row, 17).Value + Heim_Anz_Gewinnsatz
End
If
End
With
With
Tabelle5
If
.Cells(Gast_finden.Row, 15).Value =
""
Then
.Cells(Gast_finden.Row, 15).Value = 1
Else
.Cells(Gast_finden.Row, 15).Value = .Cells(Gast_finden.Row, 15).Value + 1
End
If
If
Gast_Anz_Gewinnsatz > Heim_Anz_Gewinnsatz
Then
If
Tabelle5.Cells(Gast_finden.Row, 16).Value =
""
Then
Tabelle5.Cells(Gast_finden.Row, 16).Value = 1
Else
Tabelle5.Cells(Gast_finden.Row, 16).Value = Tabelle5.Cells(Gast_finden.Row, 16).Value + 1
End
If
Else
If
Tabelle5.Cells(Gast_finden.Row, 16).Value =
""
Then
Tabelle5.Cells(Gast_finden.Row, 16).Value = 0
End
If
End
If
If
.Cells(Gast_finden.Row, 17).Value =
""
Then
.Cells(Gast_finden.Row, 17).Value = Gast_Anz_Gewinnsatz
Else
.Cells(Gast_finden.Row, 17).Value = .Cells(Gast_finden.Row, 17).Value + Gast_Anz_Gewinnsatz
End
If
End
With
End
With
Tabelle3.Cells(SpielZeile, 9).Value = Heim_Anz_Gewinnsatz
Tabelle3.Cells(SpielZeile, 11).Value = Gast_Anz_Gewinnsatz
Set
Heim_finden =
Nothing
Set
Gast_finden =
Nothing
Application.EnableEvents =
True
Application.ScreenUpdating =
True
Unload Userform1
Call
sortieren
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
Exit
Sub
fehler:
Application.EnableEvents =
True
Application.ScreenUpdating =
True
Gruppenspiele =
False
Finale8 =
False
Finale16 =
False
Finale32 =
False
Finale8N =
False
Finale16N =
False
Finale32N =
False
Spielkorrektur =
False
End
Sub