AW: Auswertung für Fussball-Tippspiel
19.12.2006 00:02:56
fcs
Hallo Jack,
geht am besten mit einer benutzerdefinierten Funktion. Nachfolgenden Function-Code im VBA-Editor in ein Modul kopieren. ggf. vorher ein Modul einfügen.
Anschließend kannst du die Funktion "Punkte" wie andere Excelfunktionen benutzen.
Die Funktion funktioniert allerdings nur für 1-stellige Tipps und Ergebnisse (10:1 wird falsch als 1:1 berechet)
Du kannst natürlich auch mit folgender Formel arbeiten,ist mir persönlich aber etwas zu unübersichtlich.
Formel in D2, kann dann kopiert werden. Auch diese Formel funktioniert nur bei 1-stelligen Ergebenissen und Tipps
=WENN(C2="";"";WENN($B2=C2;5;WENN(WERT(LINKS($B2))-WERT(RECHTS($B2))=WERT(LINKS(C2))-WERT(RECHTS(C2));2;
WENN(ODER(UND(WERT(LINKS($B2))>WERT(RECHTS($B2));WERT(LINKS(C2))>WERT(RECHTS(C2)));
UND(WERT(LINKS($B2))<WERT(RECHTS($B2));WERT(LINKS(C2))<WERT(RECHTS(C2))));1;0))))
Gruss
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 = "" Then Punkte = 0: Exit Function 'ng=nicht gewertet
TippH = Val(Left(Tipp, 1))
TippG = Val(Right(Tipp, 1))
ErgebnisH = Val(Left(Ergebnis, 1))
ErgebnisG = Val(Right(Ergebnis, 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
If DiffTipp = DiffErgebnis Then Punkte = 2
'Ergebnis stimmt
If TippH = ErgebnisH And TippG = ErgebnisG Then Punkte = 5
End Function