patRRick900RR
Gebruiker
- Lid geworden
- 24 jun 2013
- Berichten
- 27
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
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
Code:
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