Lus

[savageh]

Hoi,

Ik wil een soort "lus" maken in excel, zonder VBA...
Ik zou graag willen weten of dit mogelijk is zonder VBA?

Ik heb namelijk de volgende formule in cel J2 :

=ALS(J14>50;"<"&((J6/J7)+5);"<"&J6/J7)

Ik wil dus als de waarde in J14 groter is dan 50; een bepaalde waarde telkens met 5 verhogen. Tot dat J14 kleiner word dan 50.

in J14 bevindt zich de volgende formule

=(J11*J12)/J13

J12 is dan weer een waarde dat via J2 verkregen wordt.

Dus er ontstaat een kringverwijzing.
Kringverwijzing heb ik opgelost met de functie "iteraties"...
Maar hoe maak je een "lus"?

Iemand een idee?
Alvast bedankt,

zie bijlage voor de duidelijkheid,

 

[savageh]

Geen reacties...

Het zal waarschijnlijk niet gaan zonder VBA...

Daarom heb ik dan ook een code geschreven in VBA

Private Sub Worksheet_Change(ByVal Target As Range)

Dim x As Integer
           
    If Target.Address = "$J$6" Then
       Range("J3").ClearContents
       If Range("J14").Value > 50 Then
              Do
                Range("J3").Value = x
                x = x + 1
              Loop Until Range("J14").Value < 50
        End If
    End If

End Sub

Het werkt naar behoren...
Maar ik vroeg me af of het nog korter kan?
Of makkelijker?

 

[savageh]

Ik heb zo juist mijn vraag ook in een ander forum geplaatst.
Is kijken wat dat gaat geven.

Klikje

Ps. Link is speciaal voor Wigi

 

[Wigi]

Ik heb zo juist mijn vraag ook in een ander forum geplaatst.
Is kijken wat dat gaat geven.

Klikje

Ps. Link is speciaal voor Wigi

Ah zo, jij lacht dus met mijn pogingen om meer etiquette te krijgen op forums? :evil:

Goed, dan lach ik vanaf nu ook met jouw vragen. Mij best.

Wigi

 

[savageh]

Ah zo, jij lacht dus met mijn pogingen om meer etiquette te krijgen op forums? :evil:

:shocked:
Sjonge, Jij bent ook nooit blij he
Ik help jou juist door een link te plaatsten.

Jij helpt mij met mijn vragen, ik help jou om meer ettiquette te krijgen op forums... Everybody wins!

Goed, dan lach ik vanaf nu ook met jouw vragen. Mij best.

Wigi

Je mag lachen met mijn vragen, daar heb ik geen problemen mee.
Als je ze maar kunt oplossen. :thumb:

 

[savageh]

OK, we zijn er bena... Nog een ietsie bietsie kleine probleemke

Ik heb dus in J2 de volgende formule:

= "<" & ((J6/J7)+J3)

en in J3:

=ALS(J14>50;J3+1;J3)

Nu krijg je een foutmelding dat je kringverwijzing hebt gemaakt, bla bla...
Kringverwijzingen kunt ge laten berekenen door in opties de "iteratie" functie aan te zetten.

Als ik nu bvb in J6; "60" invul dan zoekt hij een bepaalde waarde voor J13 om J14 kleiner dan 50 te maken. Als ik daarna een waarde kleiner dan 60 invul dan lukt het ook nog.

Nu komt het! : Als je nu een waarde groter invult,in dit geval groter dan 60, dan werkt het niet. Ik moet dan J3 aanklikken en op enter duwen dan werk het weer wel...
Dus telkens als je een grotere waarde invult moet je J3 aanklikken en op enter duwen...
Het is iets te omslachtig om mee te werken...

Dus bij deze iemand een idee hoe ik dit kan oplossen?

 

[Wigi]

Klikje

Die zullen je wel helpen.

En eigenlijk zou ik als moderator op Ozgrid je topic moeten sluiten wegens cross-posten...

 

[savageh]

Denk dat het gelukt is...

Ik heb de volgende formules gebruikt:

in J3:

=ALS((J6/J7)=J4-J3;ALS(J14>50;J3+1;J3);0)

in J4:

=(J6/J7)+J3

Ik heb gehoord dat de "iteratie" functie niet 100% betrouwbaar is, daarom ga ik de vraag voorlopig op opgelost zetten; Ik zit nog in de test fase...