Variablen Zuweisung nicht möglich

Sub neu() K_Row_dyn = 7 K_LastRow = 3500 For Jahr = 1 To 5 If Jahr Mod 2 0 Then For K_Row = K_Row_dyn To K_LastRow If ActiveSheet.Cells(K_Row, 1) = ActiveSheet.Cells(7, 1) - Jahr * 365 Then If Jahr = 1 Then KJ1_Row = K_Row ElseIf Jahr = 3 Then KJ3_Row = K_Row ElseIf Jahr = 5 Then KJ5_Row = K_Row End If K_Row_dyn = K_Row Exit For ElseIf ActiveSheet.Cells(K_Row, 1)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub neu1() Dim K_Row_dyn As Long Dim K_LastRow As Long Dim Jahr As Long Dim k_row As Long Dim KJ1_Row As Long Dim KJ3_Row As Long Dim KJ5_Row As Long K_Row_dyn = 7 K_LastRow = 3500 Jahr = 1 Do For k_row = K_Row_dyn To K_LastRow If ActiveSheet.Cells(k_row, 1)

Hallo zusammen,
nochmal vielen Dank für die Rückmeldungen. Ich hatte den Code gestern Nacht so runter geschrieben, wie er mir in den Kopf kam. Sorry für die Unübersichtlichkeit. Ich habe ihn jetzt noch mal etwas aufgeräumt. Das Problem allerings bleibt weiter bestehen:

Sub neu()
Dim K_Row As Integer 'Reihennummer ausgelesen aus Tabelle
Dim K_LastRow As Integer 'Letzte Reihe in Tabelle
Dim K_Row_dyn As Integer 'Dynamischer Startpunkt für FOR Schleife
Dim Jahr As Integer 'Betrachtungszeitraum, Jahr 1, Jahr 3 und Jahr 5
Dim KJ1_Row As Integer 'Reihe des Wertes aus Jahr 1
Dim KJ3_Row As Integer 'Reihe des Wertes aus Jahr 3
Dim KJ5_Row As Integer 'Reihe des Wertes aus Jahr 5
K_Row_dyn = 7
K_LastRow = 3500
For Jahr = 1 To 5 Step 2
For K_Row = 7 To K_LastRow
If ActiveSheet.Cells(K_Row, 1)

Zum Hintegrund: Ich habe eine Tabelle mit Aktienkursdaten. In der ersten Spalte steht das Datum des Handelstags, in der zweiten der Wert der Schlußkurse. Diese Tabelle beinhaltet die historischen Kurzdaten der letzten 10 Jahre.
Ich möchte nun die Aktienkurs Volatilität für drei Zeiträume berechnen: 1 Jahr, 3 Jahre und 5 Jahres. Da die Volatilität im Grund nichts anderes ist als die Varianz der Rendite über zB. 1 Jahr, muss ich wissen, in welcher Zeile ich den Wert von vor einem Jahr (oder vor 3 bzw. vor 5 Jahren) finde.
Leider ist die Tabelle nicht vollständig. Feiertage sowie Wochenenden sind nicht enthalten. Wenn ich die Tabelle z.B. nach dem 01.01.2018 durchsuche, werde ich keine Werte finden.
Daher geht die FOR Schleife solange die Einträge durch bis ich das "aktuelle Datum minus 365 Tage" gefunden habe, oder ich auf den nächst kleineren Datumseintrag stoße. Diese Zeile verwende ich dann für die Berechnung der Varianz.
Diese Berechnung wiederhole ich für die Jahre 1, 3 und 5. Da ich die FOR Schleife nicht jedes mal wieder bei der ersten Reihe starten möchte, nutze ich die Variable "K_Row_dyn", um dort weiter zu machen, wo ich zuvor aufgehört habe.
Wie gesagt, der Code funktioniert, er macht im Grunde genaue das, was er soll. Nur halt nicht, wenn die Variable mit "KJ" beginnt. Aktuell arbeiter ich mit den Variablen-Bezeichnungen "K_J1_Row" und habe keinerlei Problem damit. Es stört mich auch nicht. Ich würde halt nur gerne den Grund herausfinden.
PS: Ich habe keine andere Variable die mit "KJ" beginnt.
Danke und viele Grüße
Michael

Beliebteste Forumthreads (12 Monate)

Variablen Zuweisung nicht möglich

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread