Zwei Werte im Wechsel addieren

[Arious87]

Hallo zusammen,

ich möchte über ein Schleife immer abwechselnd zwei verschiedendene Werte addieren. Also beim ersten Durchlauf + Abstand b beim zweiten Druchlauf + Abstand c und bei dritten wieder + Abstand b. Wie realisiere ich so etwas.

For i = 27 To ID

    Cells(i, 18) = Abstanda
    Abstanda = Abstanda + Abstandb

Next i

Vielen Dank.
VG

[Käpt'n Blaubär]

Hallo,

merkst Du selbst, daß da was fehlt?

Also, ich werde am Beispiel Deines Codes versuchen, Dir zu zeigen, was Du noch beachten mußt, daß aus Deinem Projekt was werden kann.
Auch wenn es leider fast so aussieht, Niedermachen will ich Deine Bemühungen nicht. Wir alle haben mal angefangen, drum nur Mut; es wird mit der Zeit schon

Sub Addieren()
' ich möchte über ein Schleife immer abwechselnd zwei verschiedendene Werte addieren.
' Also beim ersten Durchlauf + Abstand b
' beim zweiten Druchlauf + Abstand c
' und bei dritten wieder + Abstand b.
' Wie realisiere ich so etwas.

For i = 27 To ID
Cells(i, 18) = Abstanda
Abstanda = Abstanda + Abstandb
Next i
End Sub

... wenn nicht, dann:
Abstand A wurde definiert als sich verändernder Zellwert (i = Zeile 27 bis ID wobei ID dann bitte schön was ist?, 18 =Spalte "R")
Abstand B schwebt in den Wolken,
ebenso Abstand C ... den Du dann in Deinem gezeigten Code aber überhaupt nicht abrufst.
und was ist dieses ominöse ID?
Und wo ist dann der Unterschied zwischen dem ersten und dem dritten Durchlauf.

Oh mei, je öfter ich Dein Machwerk lese, desto mehr Unstimmigkeiten fallen mir auf.
Also warte ich erst mal ab, bis die oben aufgeführten Fragen geklärt sind.

Beispielsweise: wohin sollen die Durchlaufergebnisse geschrieben werden?
All das ist ungeklärt

[schauan]

Hallöchen,

wie Peter schon schrieb, fehlt das eine oder andere. Mal aus dem Hut gezaubert könnte ich es mir so vorstellen:

Code:

Sub Addieren()
'Variablendeklarationen Variant + Integer
Dim arrAbstand, iCnt%, iErgebnis%
'Startwert festlegen
iErgebnis = 88
'3 Summanden festlegen, AbstandA = 1, AbstandB = 2
arrAbstand = Array(1, 2, 1)
'3 Additionen in Schleife
For iCnt = 0 To 2
  'Summand zu iErgebnis addieren
  iErgebnis = iErgebnis + arrAbstand(iCnt)
'Ende 3 Additionen in Schleife
Next
'Ergebnismeldung
MsgBox iErgebnis
End Sub

[Arious87]

Hab das ganze über Arrays realsiert.

Vielen Dank für die Antworten.