Hallo,
8<-----------
> Also:
>
> 96-100% = Note 1+ [nein, ist kein Fehler ! ]
> 91-95% = Note 1
> 86-90%= Note 1-
> 81-85% = Note 2+
> usw.
Du kannst ja gerne den Schlüssel um Deine Plus und Minus-Geschichten erweitern.
Function Note(Schluessel, Punkte As Integer)
' Schluessel ist ein Array mit 7 zeilen 1 spalte oder 1 zeile und 7 spalten
' IHK SChlüssel A1:G1 .. 100 92 81 67 50 30 5
if ubound(schluessel,1) = 7 and ubound(schluessel,2) = 1 then
z1=1:z2=2:z3=3:z4=4:z5=5:z6=6:z7=7
s1=1:s2=1:s3=1:s4=1:s5=1:s6=1:s7=1
elseif ubound(schluessel,1) = 1 and ubound(schluessel,2) = 7 then
s1=1:s2=2:s3=3:s4=4:s5=5:s6=6:s7=7
z1=1:z2=1:z3=1:z4=1:z5=1:z6=1:z7=1
else
Note = "#Schlüssel!"
Exit Function
endif
Select Case Punkte
Case Is >= Schluessel(z2,s2)
Note = 1.0 + (Schluessel(z1,s1) - Punkte)/(Schluessel(z1,s1) -
Schluessel(z2,s2))/2
Case Is >= Schluessel(z3,s3)
Note = 1.5 + (Schluessel(z2,s2) - Punkte)/(Schluessel(z2,s2) -
Schluessel(z3,s3))
Case Is >= Schluessel(z4,s4)
Note = 2.5 + (Schluessel(z3,s4) - Punkte)/(Schluessel(z3,s3) -
Schluessel(z4,s4))
Case Is >= Schluessel(z5,s5)
Note = 3.5 + (Schluessel(z4,s4) - Punkte)/(Schluessel(z4,s4) -
Schluessel(z5,s5))
Case Is >= Schluessel(z6,s6)
Note = 4.5 + (Schluessel(s5,s5) - Punkte)/(Schluessel(z5,s5) -
Schluessel(z6,s6))
Case Is > Schluessel(z7,s7)
Note = 5.5 + (Schluessel(z6,s6) - Punkte)/(Schluessel(z6,s6) -
Schluessel(z7,s7))/2
Case Else
Note = 6
End Select
End Function
Gruß HW
Hans W. Hofmann
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
