Problem mit Arrays / Laufzeitfehler 9
06.02.2018 16:10:13
Ich1986
ich bin ziemlich neu im VBA und arbeite gerade an einem Code in dem ich versuche mit Vektoren/Arrays zu arbeiten. In der ersten Funktion möchte ich gerne aus einer Wertereihe eine Rendite ermitteln (Also Rendite = Aktueller Wert/vorheriger Wert -1; Ja das neue Array ist um einen Wert kürzer als das alte). Die länge der Arrays ist dabei nicht festgelegt (also soll das Array so viele Werte beinhalten wie Werte in den jeweiligen Spalten stehen).
Jetzt habe ich die Erfassung anscheinend schon in den Griff bekommen, aber bei der Berechnung kommt der Laufzeitfehler 9 heraus.
Hier ist mal der Code:
Public Sub Berechnung()
Dim BereichAk As Range
Dim ArrAkTR As Variant
Dim BereichRk As Range
Dim ArrRkTR As Variant
Dim ArrAkRenditeDis As Variant
Dim ArrRkRenditeDis As Variant
Dim AnzahlMonate As Integer
Dim i As Integer
Dim x As Integer
With Sheets("Erfassung")
Set BereichAk = .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row)
ArrAkTR = BereichAk
Set BereichRk = .Range("b1:b" & .Cells(.Rows.Count, 1).End(xlUp).Row)
ArrRkTR = BereichRk
End With
AnzahlMonate = UBound(ArrAkTR)
For i = 1 To (AnzahlMonate - 1)
x = i - 1
ArrAkRenditeDis(x) = (ArrAkTR(i) / ArrAkTR(x) - 1)
Next i
End Sub
Ihr habt sicherlich schnell eine Idee was hier nicht passt (Hoff)
Vielen Dank und schöne Grüße
Ich1986