VBA: Sum af loop

Hey PN

Jeg har taget VBA op i dag og er stødt ind i et mindre problem. Jeg har følgende:

Sub Nutidsvaerdi()

Dim startbeløb, diskFaktor, løbetid, AkkVaerdi, PV, sumPV

outRow = 2
outSheet = "Nutidsværdi"
Worksheets(outSheet).Activate

startbeløb = Cells(2, 3).Value
diskFaktor = Cells(3, 3).Value
løbetid = Cells(4, 3).Value

For i = 1 To løbetid
AkkVaerdi = startbeløb * (1 + diskFaktor) ^ (i)
PV = startbeløb * (1 + diskFaktor) ^ (-i)

Cells(outRow + 1, 5).Value = 0
Cells(outRow, 5 + i).Value = i
Cells(outRow + 1, 5).Value = startbeløb
Cells(outRow + 1, 5 + i).Value = AkkVaerdi
Cells(outRow + 2, 5 + i).Value = PV
Next i

Range(Cells(outRow + 1, 5), Cells(outRow + 2, 5 + løbetid)).Select
Selection.Style = "Comma"

End Sub

Problemet er løst!

For i = 1 To løbetid
AkkVaerdi = startbeløb * (1 + diskFaktor) ^ (i)
PV = startbeløb * (1 + diskFaktor) ^ (-i)

Cells(outRow + 1, 5).Value = 0
Cells(outRow, 5 + i).Value = i
Cells(outRow + 1, 5).Value = startbeløb
Cells(outRow + 1, 5 + i).Value = AkkVaerdi
Cells(outRow + 2, 5 + i).Value = PV
Sum = Sum + PV
Next i

Range("E5").Value = Sum + startbeløb

Tilføj til din for-løkke
Cells(5,5)= sumPV
sumPV= sumPV + PV

To slow...

Tak alligevel :-)