Ausgabe im Tabelltenblatt
18.05.2014 11:32:30
Jan
'Tagesrendite berechnen
r = wsSiemens.Cells(1, 1).End(xlDown).Row
CloseSiemens = wsSiemens.Range("G2:G" & r)
ReDim rSiemens(UBound(CloseSiemens) - 1)
For n = 1 To UBound(rSiemens)
rSiemens(n) = Log(CloseSiemens(n, 1)) - Log(CloseSiemens(n + 1, 1))
Next n
?Range("H2:H3396") = rSiemens?