Amortisation mit Kostensteigerung
10.11.2022 10:20:19
Bernd
ich habe ein Problem:
Ich möchte die Amortisationsdauer einer Anlage berechnen.
Die neue Anlage ist Energieeffizienter als die Altanlage und spart somit Stromkosten.
Die Stromkosten der neuen Anlage spielen eine Rolle, da diese jährlich konstant um x% steigen.
Ich muss wissen, nach wievielen Jahren die Anlage durch Enerdieeinsparung amortiesiert ist.
Sub AbgerundetesRechteck4_Klicken()
Dim d As Integer
Dim s, a, g, z, p, e, i As Double
Worksheets("Tabelle1").Activate
d = 1
i = Range("G25") 'Stromsteigerung in %
p = (i / 100) + 1 'Stromsteigerung zum rechnen bspw. (2/100)+1 =1,02 (sind 2% Steigerung je Jahr)
g = Range("H48") 'Anschaffungskosten
e = Range("G31") 'stromeinsparung in kwh/jahr
s = Range("G24") 'Stromkosten in ct
a = s / 100 'Stromkosten in euro
z = e * a 'Stromeinsparung in Euro
Do While z >= g
d = d + 1
s = s * p 'Steigere den Strompreis um p
a = s / 100 'neue Stromkosten in euro
z = e * a 'neue Stromeinsparung in Euro
Loop
Range("K3").Value = d
End Sub
Anzeige