Hallo zusammen,

ich habe heute erstmals etwas mit VBA gemacht, bisher hatte ich nur Erfahrung mit Java und PHP.

Für ein Tippspiel habe ich mir die folgenden Funktionen geschrieben:

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

Function PunkteSpiel(toreHeim As Integer, toreGast As Integer, tippHeim As Integer, tippGast As Integer)

PunkteSpiel = 0

If Sieger(toreHeim, toreGast) = Sieger(tippHeim, tippGast) Then
PunkteSpiel = 1
End If

If (toreHeim - toreGast) = (tippHeim - tippGast) Then
PunkteSpiel = 2
End If

If toreHeim = tippHeim And toreGast = tippGast Then
PunkteSpiel = 3
End If

End Function

Function Sieger(toreHeim As Integer, toreGast As Integer)

If toreHeim > toreGast Then
Sieger = 1
End If

If toreHeim = toreGast Then
Sieger = 0
End If

If toreHeim < toreGast Then
Sieger = 2
End If

End Function

Function Kategorie(Punkte As Integer)

If Punkte > 15 Then
Kategorie = "A"
End If

If Punkte < 16 And Punkte > 12 Then
Kategorie = "B"
End If

If Punkte < 13 And Punkte > 9 Then
Kategorie = "C"
End If

If Punkte < 10 And Punkte > 6 Then
Kategorie = "D"
End If

If Punkte < 7 And Punkte > 3 Then
Kategorie = "E"
End If

If Punkte < 3 Then
Kategorie = "F"
End If

End Function

Nun rufe ich in Excel Punkte("A";"A";3;0) auf und erhalte die Fehlermeldung.

Vielleicht kann mir jemand sagen warum? Danke!