title image


Smiley Re: WM Tipprunde
Hallo Johannes!



Hier ein paar Tips zum Selbsthäkeln:



Füge im VBA-Editor in ein neues Modul mal folgenden Code ein:



Function Punkte(Voraussage As String, Ergebnis As String, Optional Trennzeichen As String = ":")

Application.Volatile

vg = Val(Geschossen(Voraussage))

eg = Val(Geschossen(Ergebnis))

vk = Val(kassiert(Voraussage))

ek = Val(kassiert(Ergebnis))



If vg = eg And vk = ek Then

Punkte = 5

ElseIf (vg - vk) = (eg - ek) Then

Punkte = 3

ElseIf Sgn(vg - vk) = Sgn(eg - ek) Then

Punkte = 2

Else

Punkte = 0

End If

End Function



Function Geschossen(Erg As String)

Geschossen = Left(Erg, InStr(Erg, Trennzeichen))

End Function



Function kassiert(Erg As String)

kassiert = Mid(Erg, InStr(Erg, Trennzeichen) + 2)

End Function



Jetzt hast Du die Möglichkeit, in einem Excelarbeitsblatt ein Tipmatrix aufzubauen.

In der beigefügten Abbildung siehst Du davon mal ein Minibeispiel.

In der oberen Hälfte siehst Du die Voraussagen der einzelnen Mitspieler sowie in der Zeile 2 das jeweils tatsächliche Ergebnis. In der unteren Liste werden dann mit Hilfe der o.a. Funktion die jeweiligen Punkte zugewiesen. Dann könnte man im vorliegenden Beispiel noch in der Spalte D die Gesamtpunktzahl für den jeweiligen Mitspieler ermitteln.



Gruß

Manes




Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: