Nun würde ich der Einfachheit halber gerne die Minus- und Plusnoten statt der Kommazahl eintragen. Das Programm sollte sie aber als solche behandeln. Wie mache ich das?
Danke, Michael
Option Explicit
Function NW(Zelle As Range) 'NW=Notenwert
NW = CDec(Left(Zelle, 1))
If Right(Zelle.Value, 1) = "+" Then NW = NW - 0.25
If Right(Zelle.Value, 1) = "-" Then NW = NW + 0.25
End Function
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||