Auswertung für Fussball-Tippspiel

Hallo Freunde der unkomplizierten Rechenkünste :D
Ich "arbeite" gerade an einem Dokument der mir mein Tippspiel automatisch
auswertet.
Allerdings bin ich gerade an einem Problem angekommen.
Und zwar gibt es für unterschiedliche Tipps ja unterschiedliche Punkte:
Tipp: 2:2
Ergebnis 2:2
= 5 Punkte
Tipp 2:1
Ergebnis 1:0
= 2 Punkte
oder..
Tipp 1:1
Ergebnis 0:0
= 2 Punkte
Und wenn ein Tipp falsch ist, dann logischerweise 0 Punkte.
Allerdings fehlen mir die Kenntnisse um solch eine Formel zu erstellen.
Hier die Datei die ich bisher erstellt habe.
http://simpleupload.net/download/10469/Auswertung.xls.html
Ganz links möchte ich dann immer die Endergebnisse eintragen,
unter den Namen stehen die Tipps, rechts daneben mit grünem Hintergrund
sollte dann die Formel für die automatische Berechnung stehen.
Ich hoffe mir kann jemand weiterhelfen. Danke :)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

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

Beliebteste Forumthreads (12 Monate)

Auswertung für Fussball-Tippspiel

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread