INVESTOX-Forum

Hallo,

ich habe in Visual Basic extern eine Formel nach folgendem Muster programmiert :

For i = StartI to EndI

Berechnung = ABS(closedaten(i) – opendaten(i))
Ergebnis(i) = Berechnung

Next i


Soweit so gut- klappt wie es soll.
Zu einem späteren Zeitpunkt möchte ich dann aber auf das Ergebnis (i-1) zugreifen. Da funktioniert bei mir bis jetzt nur diese Variante:


For i = StartI to EndI

Berechnung = ABS(closedaten(i) – opendaten(i))
Berechnung1 = ABS(closedaten(i-1) – opendaten(i-1))
Ergebnis(i) = Berechnung1

Next i


Ich hätte mir die Zeile:

Berechnung1 = ABS(closedaten(i-1) – opendaten(i-1))

gern erspart, weil das hier nur ein Beispiel ist und die tatsächliche Berechnung viel länger ist und ich außerdem immer neuen Code produzieren würde, wenn ich beispielsweise auf das Ergebnis (i-2) oder (i-3) zugreifen wollte.
Anfangs dachte ich es wäre überhaupt kein Problem weil die Werte für das Ergebnis(i-1) spätestens ab StartI+1 ja im Array Ergebnis() stehen.
Meine sämtlichen Versuche auf Ergebnis(i-1) zuzugreifen waren aber bis jetzt erfolglos. Probiert habe ich auch diverse Schleifen-Konstruktionen, Zusatz-Array´s und die verschiedensten Array-Initialisierungen für Ergebnis() bzw. die Zusatzarrays.
Klappte alles nicht - das höchste der Gefühle ist mal „0“ als Ergebnis, meist aber k/A.

2 zusätzlich neu erworbene VB6 Bücher mit extrag großem Array und Schleifen–Teil haben nur dazu geführt, dass mir jetzt total der Kopf schwirrt.

Ich fürchte, inzwischen habe ich mich bei der Sache komplett verrannt und sehe jetzt den Wald vor lauter Bäumen nicht mehr.

Kann mir hier eventuell jemand sagen, wie ich ohne die zusätzliche Codezeile oben richtig auf Ergebnis (i-1) zugreifen kann
?

Danke vorab und schönes Wochenende für alle.

Hallo - die Sache hat sich erledigt.
Ich habe bereits ausgesprochen kompetente Hilfe bekommen. :]

Hallo Wilfried,

bitte hab Verständnis dafür, dass ich die Lösung hier nicht posten möchte. Der Spezialist der mir geholfen hat, wird Dir sicher selbst antworten oder die Lösung hier posten, wenn er das möchte.

Hallo 222,

der Spezialist ist schon lange nicht mehr hier aktiv - also lüfte ich jetzt das 12 Jahre alte "Geheimnis":

Dim Berechnung()
Redim Berechnung (StartI to endI)

For i = StartI to EndI

Berechnung(i) = ABS(closedaten(i) – opendaten(i))
Ergebnis(i) = Berechnung(i-1)

Next i

Mein Fehler war damals die fehlende Deklaration und Redimensionierung des Arrays.