Function Punkte(kategorieHeim As String, kategorieGast As String, tippHeim As Integer, tippGast As Integer)
Punkte = 0
Dim i As Integer
i = 0
Dim PunkteNeu As Integer
PunkteNeu = 0
Do Until IsEmpty(Spiele.Cells(i, 1))
If Kategorie(Spiele.Cells(i, 3)) = kategorieHeim And Kategorie(Spiele.Cells(i, 5)) = kategorieGast Then
PunkteNeu = PunkteSpiel(Spiele.Cells(i, 6), Spiele.Cells(i, 7), tippHeim, tippGast)
End If
Punkte = Punkte + PunkteNeu
i = i + 1
Loop
End Function