ich habe folgende Umsatzstaffelung:
Brutto-Umsatz
bis 50000 4,50%
50001 bis 75000 4,00%
75001 bis 100000 3,50%
100001 bis 125000 3,00%
>125000 2,50%
Hab mir dafür folgenden Ansatz überlegt.
Sub StaffelungBerechnen()
Dim intSum As Integer
With Tabelle1
Select Case .Cells(1, 1).Value
Case 0 To 50000
intSum = intSum + 50000 * 0.045
Case 50001 To 75000
intSum = intSum + 24999 * 0.04
Case 75001 To 100000
intSum = intSum + 24999 * 0.035
Case 100001 To 125000
intSum = intSum + 24999 * 0.03
Case Is > 125000
intSum = intSum + (.Cells(1, 1).Value - 125000) * 0.025
End Select
.Cells(1, 2).Value = intSum
End With
End Sub
Allerdings nimmt er hier bei einem Umsatz von 100k logischerweise nur die Berechnung bei 75001 bis 100000. Wie kann ich es lösen, damit alle Provisionen von 0 - 100000 berechnet und zu einer Gesamtprovision summiert werden?
Vielen Dank für eure Hilfe.
Schöne Grüße,
Anton