Doelzoeken automatiseren?
erno...@hetnet.nl
Hierbij moet ik, om kringverwijzingen te voorkomen, van 1 bedrag, in
12 kolommen, handmatig de bedragen invullen. Dit doe ik met
doelzoeken, waarbij een controlegetal dan op 0 (nul) uitkomt.
Ter illustratie: het gaat om het saldo van een bank in een financiele
opstelling (begroting). Het banksaldo wijzigt automatisch bij
verandering van andere cijfers (uitgaven en inkomsten). Echter om de
bankrente te berekenen moet ik in andere cellen de banksaldi handmatig
ingeven, en de bankrente op basis hiervan berekenen, omdat er anders
een kringverwijzing onstaat omdat het saldo van de bank ook weer
afhankelijk is van hoeveel rente er betaald wordt.
Omdat de bedragen weleens (oftewel best wel vaak) wijzigen, en ik elke
keer 12 kolommen handmatig met doelzoeken moet doorlopen (als ik in de
eerste kolom iets wijzig veranderen alle kolommen) vraag ik mij af of
ik met een macro of formule dit doelzoeken niet kan automatiseren.
Iemand suggesties?
bart.s...@scarlet.be
ja, dat kan in VBA, alleen is het altijd hetzelfde getal dat je
aanpast of bestaan er x variaties op hetzelfde thema ?
en de andere getallen die door doelzoeken gevonden worden zijn die dan
ook altijd dezelfde ?
Je zou kunnen beginnen met je getal aan te passen en dan via macro
opnemen de acties er na opnemen en dan afsluiten en dan een keer
kijken of de macro het doet.
Lukt het niet dan zal je een wat meer uitleg moeten geven over het
probleem of een (uitgeklede) versie van je excelblad even moeten
mailen.
bart
erno...@hetnet.nl
>
> - Tekst uit oorspronkelijk bericht weergeven -
Ik heb het ondertussen gevonden. Eigenlijk 'gewoon' macro opnemen
starten, vervolgens doelzoeken voor 1 van de cellen, macro opnemen
stoppen, en vervolgens de macro bewerken en de regel die nu ontstaan
is (Range("R20").GoalSeek Goal:=0, ChangingCell:=Range("R9") )
kopieren voor zoveel kolommen er zijn en in die regels R20/R9
vervangen voor S20/S9, T20/T9, etc. (Je kan natuurlijk ook macro
opnemen aan laten staan en alles gaan doelzoeken, maar ik heb zoiets
als ik dan ergens iets anders doe wordt dat ook opgenomen). En ik heb
dan ook de bladnaam (blad1!R20 o.i.d.) toegevoegd zodat de macro het
ook doet als je in een ander tabblad staat.
Vervolgens ook een toetscombinatie (bijv. CTRL-D voor doelzoeken)
eraan toevoegen en voila, het werkt!