Samenvoegen van variabelen in een lus

[patRRick900RR]

Hallo,

Ik heb een vraag gepost over het toepassen van meerdere lussen in een code. Helaas heb ik daar nog geen reactie op gekregen. Nu wil ik het gaan proberen met het nesten van lussen. Ik wil eerst de eerste lus testen. De code rond het ophogen van JCSB_ kreeg ik in orde, echter ik krijg de code voor het ophogen van SB_jaar en dan 1 t/m 5 niet kloppend.

Vraag: hoe voeg ik "SB_jaar" samen met de uitkomst van de loop (waarde X), zodat ik SB_jaar1, SB_jaar2 enz, enz krijg?
En moet ik ze inderdaad declareren zoals aangegeven?

Hoop dat iemand me kan helpen, zodat ik door kan met het programma! Thanks Patrick

Dim SB_jaar1 As Single
Dim SB_jaar2 As Single
Dim SB_jaar3 As Single
Dim SB_jaar4 As Single
Dim SB_jaar5 As Single
Dim jaarsb As Single
Dim jaarprijsSB As Single
Dim X As Single

For X = 1 To 5
If JCSB_1.Value = True Then SB_jaar "hier moet straks opeenvolgend 1, 2, 3, 4, 5 komen" = aSB.Value * (Worksheets("Var").Range("B12").Value + staffel_PFX)
Next X

 

[edmoor]

Ik zou het zo doen:

Dim SB_jaar(5) As Single

Dim jaarsb As Single
Dim jaarprijsSB As Single
Dim X As Single

If JCSB_1.Value Then
    For X = 1 To 5
        SB_jaar(X) = aSB.Value * (Worksheets("Var").Range("B12").Value + staffel_PFX)
    Next X
End If

Je vult wel 5x dezelfde waarde in dus het nut zie ik niet.

 

[patRRick900RR]

Waardes uit meerdere variablen samenvoegen in een lus.

Ik zou het zo doen:

Dim SB_jaar(5) As Single

Dim jaarsb As Single
Dim jaarprijsSB As Single
Dim X As Single

If JCSB_1.Value Then
    For X = 1 To 5
        SB_jaar(X) = aSB.Value * (Worksheets("Var").Range("B12").Value + staffel_PFX)
    Next X
End If

Je vult wel 5x dezelfde waarde in dus het nut zie ik niet.

Hoi Edmoor,
Bedankt voor je reactie. Ik zal uitleggen waarvoor ik dit wil gebruiken.

Ik heb 5 checkboxen die staan voor JCSB_1, JCSB_2 enz enz. Als een checkbox is aangevink moet de waarde uit cel B12 geschreven worden in resp. SB_jaar1, SB_jaar2 enz. enz.

Ik gebruik de variabele SB_jaar(X) om straks op basis van andere logische testen ook waardes toe te voegen.

If JCSB_1.value = true then
SB_jaar1 = aSB.value * ...........
If UOSB_1.value = true then
SB_jaar1 = SB_jaar1 + (aSB.value * .........)

If SB_jaar2.value = true then
SB_jaar2 = aSB.value * ........
If UOSB_2.value = true then
SB_jaar2 = SB_jaar2 + (aSB.value* ..........)

Dit wil ik uiteindelijk voor 5 jaren doen. Ik dacht door middel van lussen een boel tikwerk te besparen.

Helaas kom ik er nog niet uit..

Hoop dat je me nog wat tips kan geven.

Mvg Patrick