bin was kleines am testen...was ist hier der fehler
Option ExplicitFunction Euroumrechner(EuroBetrag, Optional Sonderkurs) Dim Kurs, Kurs1, Kurs2, Kurs3, Kurs4 Dim CHFBetrag Kurs1 = 1.58Kurs2 = 1.55Kurs3 = 1.5Kurs4 = 1.47 If IsMissing(Sonderkurs) Then Select Case EuroBetrag Case Is < 500 CHFBetrag = EuroBetrag * Kurs1 Case Is < 1000 CHFBetrag = EuroBetrag * Kurs2 Case Is < 2500 CHFBetrag = EuroBetrag * Kurs3 Case Is >= 2500 CHFBetrag = EuroBetrag * Kurs4End SelectEuroumrechner = Round(CHFBetrag / 5, 2) * 5End Function
gruss
Kommentar