Public Function rvg(Streitwert As Single)
    rvg = TeilwertUnten(Streitwert, 0, 500, 500, 45) _
    + TeilwertUnten(Streitwert, 500, 2000, 500, 35) _
    + TeilwertUnten(Streitwert, 2000, 10000, 1000, 51) _
    + TeilwertUnten(Streitwert, 10000, 25000, 3000, 46) _
    + TeilwertUnten(Streitwert, 25000, 50000, 5000, 75) _
    + TeilwertUnten(Streitwert, 50000, 200000, 15000, 85) _
    + TeilwertUnten(Streitwert, 200000, 500000, 30000, 120) _
    + TeilwertOben(Streitwert, 500000, 50000, 150)
End Function
Public Function pkh(Streitwert As Single)
    If Streitwert > 30000 Then
        pkh = 447
    Else
        pkh = TeilwertUnten(Streitwert, 0, 500, 500, 45) _
        + TeilwertUnten(Streitwert, 500, 2000, 500, 35) _
        + TeilwertUnten(Streitwert, 2000, 4000, 1000, 51) _
        + TeilwertUnten(Streitwert, 4000, 5000, 1000, 5) _
        + TeilwertUnten(Streitwert, 5000, 10000, 1000, 10) _
        + TeilwertUnten(Streitwert, 10000, 25000, 3000, 14) _
        + TeilwertUnten(Streitwert, 25000, 30000, 5000, 35)
    End If
End Function
Public Function gkg(Streitwert As Single)
    gkg = TeilwertUnten(Streitwert, 0, 500, 500, 35) _
    + TeilwertUnten(Streitwert, 500, 2000, 500, 18) _
    + TeilwertUnten(Streitwert, 2000, 10000, 1000, 19) _
    + TeilwertUnten(Streitwert, 10000, 25000, 3000, 26) _
    + TeilwertUnten(Streitwert, 25000, 50000, 5000, 35) _
    + TeilwertUnten(Streitwert, 50000, 200000, 15000, 120) _
    + TeilwertUnten(Streitwert, 200000, 500000, 30000, 179) _
    + TeilwertOben(Streitwert, 500000, 50000, 180)
End Function
Public Function TeilwertUnten(Streitwert As Single, Untergrenze As Single, Obergrenze As Single, StufenHöhe As Single, Erhöhungsbetrag As Single)
    If Streitwert > Untergrenze Then
        If Streitwert > Obergrenze Then
            Bemessungsgrundlage = Obergrenze - Untergrenze
        Else
            Bemessungsgrundlage = Streitwert - Untergrenze
        End If
        Stufenanzahl = Application.WorksheetFunction.RoundUp(Bemessungsgrundlage / StufenHöhe, 0)
        TeilwertUnten = Erhöhungsbetrag * Stufenanzahl
    Else
        TeilwertUnten = 0
    End If
End Function
Public Function TeilwertOben(Streitwert As Single, Untergrenze As Single, StufenHöhe As Single, Erhöhungsbetrag As Single)
    If Streitwert > Untergrenze Then
        Bemessungsgrundlage = Streitwert - Untergrenze
        Stufenanzahl = Application.WorksheetFunction.RoundUp(Bemessungsgrundlage / StufenHöhe, 0)
        TeilwertOben = Erhöhungsbetrag * Stufenanzahl
    Else
        TeilwertOben = 0
    End If
End Function