AW: Tippspiel - Tendenz auswerten
08.06.2006 00:14:47
fcs
Hallo Herbert,
hier eine von mir verwendet benutzerdefinierte Funktion zur Tippauswertung.
Code im VBA - Editor in ein Modul der Datei kopieren. Anschließen kann die Funktion wie eine normale Formel verwendet werden. Also =Punkte(B1;A1)
mfg
Franz
Function Punkte(Tipp As String, Ergebnis As String) As Integer
'Berechnung der erzielten Punkte für den Tipp
If Tipp = "" Then Punkte = 0: Exit Function 'Kein Tipp abgegeben
If Ergebnis = "ng" Or Ergebnis = "0" Then Punkte = 0: Exit Function 'ng=nicht gewertet
TippH = Val(Mid(Tipp, 1, InStr(1, Tipp, ":", 1) - 1))
TippG = Val(Mid(Tipp, InStr(1, Tipp, ":", 1) + 1))
ErgebnisH = Val(Mid(Ergebnis, 1, InStr(1, Ergebnis, ":", 1) - 1))
ErgebnisG = Val(Mid(Ergebnis, InStr(1, Ergebnis, ":", 1) + 1))
DiffTipp = TippH - TippG
DiffErgebnis = ErgebnisH - ErgebnisG
'Tendenz stimmt
If (TippH > TippG And ErgebnisH > ErgebnisG) Or (TippH < TippG And ErgebnisH < ErgebnisG) Then Punkte = 1
'Tordifferenz stimmt bzw. Unendschieden
If DiffTipp = DiffErgebnis Then Punkte = 1
'Ergebnis stimmt
If TippH = ErgebnisH And TippG = ErgebnisG Then Punkte = 4
End Function