Waardes van meerdere formules naar 1 variabele schrijven.

[patRRick900RR]

Hallo,

Ik hoop dat iemand mij kan helpen met het volgende. Ik ben bezig met een programma dat een onderhoudsprijs over meerdere jaren berekent. De grafische user interface is helemaal klaar. Nu ben ik de calculaties aan het maken, die uiteindelijk de waardes naar het excel werkblad schrijft. Aan de hand van of een voorwaarde wel of niet waar is moet er een waarde toegekend worden aan een variabele (in dit geval SB_jaar1). De totale waarde van SB_jaar1 dient echter te bestaan uit de uit de uitkomst van meerdere logische testen (als het ware een commando toevoegen aan SB_jaar1). Hieronder heb ik de code van 1 test weergegeven. Is het mogelijk om de waarde van de tweede logische test toe te voegen aan de variabele SB_jaar1? Uiteraard kan ik het met hard coding doen, alleen probeer ik het programma zo strak mogelijk te houden (en nog wat te leren).

Dim SB_jaar1 As Single
If JCSB_1.Value = True Then
SB_jaar1 = aSB.value * (Worksheets("Var").Range("B12").Value + staffel_PFX)

Alvast bedankt!
Hartelijke groet,
Patrick

 

[Elsendoorn2134]

Patrick,

Uiteraard kun je dat, zolang je de variabele iedere keer maar opneemt.

Dim SB_jaar1 As Single
If JCSB_1.Value = True Then
   SB_jaar1 = aSB.value * (Worksheets("Var").Range("B12").Value + staffel_PFX)
End if
If JCSB_2.Value = True Then
   SB_jaar1 = SB_jaar1 * ........
End if
If JCSB_2.Value = True Then
   SB_jaar1 = SB_jaar1 * ........

Etc. etc.

Veel Succes.

 

[patRRick900RR]

Bedankt voor de snelle reactie, Elsendoorn2134!
E.e.a. werkt en ik kan weer lekker verder.
Fijne dag, Patrick