formules vertalen naar VBA

[jansm]

Beste mensen, ik heb een tabel met onderstaande formules, 'doorgetrokken' tot regel 5000.
Die wil ik graag met VBA in de betreffende cellen plaatsen. Zou iemand voor mij daar een code voor willen schrijven?

B5 =ALS('PERS+FEITEN'!E2="";"";('PERS+FEITEN'!E2&" "&'PERS+FEITEN'!G2))
C5 =ALS(B5="";"";--ISGETAL(ALS.FOUT(VIND.SPEC($E$1;B5;1);"")))
D5 =ALS(C5=1;AANTAL.ALS($C$5:C5;1);"")
E5 =ALS.FOUT(ALS(B5="";"";(INDEX('PERS+FEITEN'!$A$2:$A$10000;VERGELIJKEN(RIJEN($D$55);$D$5:$D$10000;0))));"")
F5 =ALS.FOUT(ALS((VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;2;0))="";"";(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;2;0)));"")
G5 =ALS.FOUT(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;5;0)&" "&(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;7;0));"")
H5 =ALS.FOUT(ALS((VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;11;0))="";"";(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;11;0)));"")
I5 =ALS.FOUT(ALS(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$1:$BN$10000;20;0)="";"";VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$1:$BN$10000;20;0));"")
J5 =ALS.FOUT(ALS((VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;25;0))="";"";(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;25;0)));"")
K5 =ALS.FOUT(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;61;0);"")
L5 =ALS.FOUT(VERT.ZOEKEN(E5;'PERS+FEITEN'!$A$2:$BN$10000;63;0);"")






ik zou graag onderstaande formules mbv VBA in een tabel

 

[Gijsbert1]

Al ontgaat mij het nut hiervan, je kunt doormiddel van "macro opnemen" dit makkelijk zelf regelen.

Selecteer cel (bijvoorbeeld B5)
Klik op "Macro opnemen"
rechtsklik in de formulebalk
en druk enter
Klik op "Opname stoppen"

 

[E v R]

Even los van jouw VBA vraag... ruim 5.000 formules en bijna 5.000 met als.fout erin.... is dit nu echt nodig.....daarnaast lijkt eea wel wat efficiënter te kunnen.

 

[snb]

Aks je toch met VBA wil werken gebruik dan VBA middelen: find, match, autofilter, removeduplicates, advancedfiler, etc.

 

[jansm]

snb, begrijp je wat ik bedoel? Maar is dit in VBA te fabriceren zonder formules?

 

[jansm]

Het is me gelukt door het opnemen van macro's eea met vba te doen. Maar is het mogelijk om de tabelmatrix (aantal regels) te vervangen door een variabele? Zo ja, hoe? De variabele heb ik.

Range("L5").Formula = "=IFERROR(VLOOKUP(RC[-7],'PERS+FEITEN'!R2C1:R10000C66,63,0),"""")"

 

[jansm]

... heb h'm gevonden