'Berechnen der einzelnen Monate
Dim dblEVnach As Double
Dim dblPVnach As Double
For i = 1 To 35040
 
dblPV = arPV(i, 1)
dblEV = arEV(i, 1)
dblPVnach = arPV(i + 1, 1)
dblEVnach = arEV(i + 1, 1)
'Januar
Do Until i > 2976
 
    dblEV = dblEV + dblEVnach
    dblPV = dblPV + dblPVnach
 
i = i + 1
Loop
Worksheets("Ausgabe").Cells(7, 10) = dblEV / dblPV
 
 
'Dezember
 
Do Until i > 35039
 
    dblEV = dblEV + dblEVnach
    dblPV = dblPV + dblPVnach
 
i = i + 1
Loop
 
Worksheets("Ausgabe").Cells(18, 10) = dblEV / dblPV