Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zuschläge gem. Tabelle berechnen

Gruppe

Bereich

Problem

Es sollen Zuschläge gem. vorgegebener Zuschlagstabelle errechnet werden.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function Zuschlag(dValue As Double) As Double
   Dim dAct As Double
   Dim iValue As Integer
   dAct = dValue Mod 500000
   Select Case dAct
      Case Is < 10000: iValue = 20
      Case Is < 25000: iValue = 40
      Case Is < 50000: iValue = 80
      Case Is < 150000: iValue = 165
      Case Is < 300000: iValue = 315
      Case Is < 500000: iValue = 540
   End Select
   iValue = iValue + _
      ((dValue - (dValue Mod 500000)) / 500000) * 300
   Zuschlag = iValue
End Function