Schleife gibt nur den letzten Wert wider
16.12.2020 12:43:02
Patrick
ich möchten den rollierenden Zusammenhang zwischen zwei Kennzahlen über den Zeitverlauf messen.
Dazu habe ich folgendes Makro geschrieben:
[quote]
Sub rolling_correlations()
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim WsF As WorksheetFunction
Dim letzteZeile As Long
Dim letzteZeile1 As Long
Dim i, n As Long
Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Time_Series")
Set Ziel = Arbeitsmappe.Worksheets("Correlation")
Set WsF = Application.WorksheetFunction
Datenbasis.Activate
letzteZeile = ActiveSheet.Cells(Rows.Count, 40).End(xlUp).Row
Ziel.Activate
letzteZeile1 = ActiveSheet.Cells(Rows.Count, 27).End(xlUp).Row
'Berechnung der rollierenden Korrelationen
Datenbasis.Activate
For y = 3 To letzteZeile1
For i = 364 To letzteZeile
Ziel.Cells(y, 28).Value = WsF.Correl(Range(Cells(i - 11, 41), Cells(i, 41)), Range( _
Cells(i - 11, 42), Cells(i, 42)))
Next
Next
End Sub
[/quote]
Mein Problem ist, dass zwar die Berechnung richtig ist, aber in allen Zellen (y) der letzte berechnete Wert steht.
Ich habe mir das jetzt ca. eine Stunde angesehen und habe einfach ein Brett vor dem Kopf.
Würde mich freuen, wenn mich einer von euch unterstützen könnte.
BG
Patrick
Anzeige