Gert Bouwmeeste
Verenigingslid
- Lid geworden
- 28 nov 2007
- Berichten
- 827
Hallo. Ik probeer de volgende formule op te nemen met de macrorecorder:
maar krijg telkens de foutmelding Opnemen is niet mogelijk
Kan iemand mij helpen deze formule te vertalen naar VBA? Ik krijg 'm niet correct. Ik heb nu dit zelf gemaakt:
Maar dan krijg ik de melding de VBA Editor Compileerfout. Verwacht: instructie einde. en gaat de cursor knipperen bij het blauw gemarkeerde.
Ik wil de formule door de macro laten invoeren invoeren in cel R2. Ik kan de formule natuurlijk wel gewoon zelf in cel R2 zetten en doortrekken naar beneden. Maar dan wordt de sheet erg traag door de vele regels en het doorrekenen.
Code:
=ALS(WEEKDAG(L2;1)=6;ALS(LINKS(M2;17)<>"Test test test te";VERT.ZOEKEN(J2&(L2-1);'[Planning ritten.xls]Ritten'!$A:$D;4;ONWAAR);VERT.ZOEKEN(J2&L2;'[Planning ritten.xls]Ritten'!$A:$D;4;ONWAAR));VERT.ZOEKEN(J2&L2;'[Planning ritten.xls]Ritten'!$A:$D;4;ONWAAR))
maar krijg telkens de foutmelding Opnemen is niet mogelijk
Kan iemand mij helpen deze formule te vertalen naar VBA? Ik krijg 'm niet correct. Ik heb nu dit zelf gemaakt:
Code:
Activecell.FormulaR1C1 ="IF(WEEKDAY(RC[-6],1)=4,if(left$(RC[-5],17)<>"[COLOR="blue"]Test[/COLOR] Test Test Te",VLOOKUP(RC[-8]+(RC[-6]-1,'[Planning ritten.xls]Ritten'!C1:C4,4,FALSE),VLOOKUP(RC[-8]+RC[-6],'[Planning ritten.xls]Ritten'!C1:C4,4,FALSE)), VLOOKUP(RC[-8]+RC[-6],'[Planning ritten.xls]Ritten'!C1:C4,4,FALSE))"
Maar dan krijg ik de melding de VBA Editor Compileerfout. Verwacht: instructie einde. en gaat de cursor knipperen bij het blauw gemarkeerde.
Ik wil de formule door de macro laten invoeren invoeren in cel R2. Ik kan de formule natuurlijk wel gewoon zelf in cel R2 zetten en doortrekken naar beneden. Maar dan wordt de sheet erg traag door de vele regels en het doorrekenen.