---

Hallo

habe folgendes Problem.Ich erhalte in einer for next Schleife
(z.B.: x = 1 to 3) einen Wert aus einem Array.Nun möchte ich diesen Wert wenn die Schleife das nächste mal durchlaufen wird zum vorherigen wert addieren. Wie kann ich das realisieren??

Ich hoffe ich hab mich verständlich ausgedrückt

Gruß Andi

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Augustiner,

keine Ahnung ob ich es richtig verstanden habe, ich stelle mir aber sowas vor:

Sub CATMain()

Dim abc(3)

abc(0) = 1
abc(1) = 2
abc(2) = 3
abc(3) = 4

For i = 0 To 3

    If i = 0 Then
   
        iinteger = abc(i)
   
    Else
   
        iinteger = iinteger + abc(i)
   
    End If

Next

End Sub

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Es geht noch etwas einfacher.
Wenn man die Variable vorher initialisiert, braucht man im ersten Schleifendurchlauf keine Sonderbehandlung.

Also etwa:

Code:

---

dim i as integer
dim value as integer

value = 0
for i = 1 to 3
  value = value + myArray(i)
next

---

------------------
--
Danny Reinhold
Reinhold Software Services

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi dr,

da hast du recht, aber warum einfach wenn mans kompliziert machen kann... 

Gruß.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dr

recht vielen Dank funktioniert einwandfrei, ist eigentlich einfach bin aber irgendwie a bisserl auf´m Schlauch gstand´n.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von prosper:
... aber warum einfach wenn mans kompliziert machen kann...  

---

Da hast Du natürlich recht.

Die ultimative Lösung ist dann wohl:

Code:

---

  dim i as integer
  dim value as integer
  for i = 1 to 3
    if i = 1 then
      value = myArray(i)
    else if i = 2 then
      value = myArray(i-1) + myArray(i)
    else if i = 3 then
      value = myArray(i-1-1) + myArray(i-1) + myArray(i)
    end if
  next

---

   

Ach Gottchen - ich sollte nicht so viel Kaffee trinken...
Wird Zeit für die Mittagspause...

------------------
--
Danny Reinhold
Reinhold Software Services

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP