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
Haltepunkt in der Funktion setzen und nachschaun!
Der Fehler kommt in Zeile 10. Offensichtlich stimmt dort etwas nicht.
Tipp: Sieht dir mal die Variable i genauer an.
Gruß
|