Een korte formule via VBA

[bigfoot47]

Hoi,

wie kan me helpen met een vba code.

zou graag de de formule =als willen omzetten naar vba.
je kan de als functie niet in een keer een bereik nemen.
vb: =als(a1=b1:b20;1;")

anders wordt het een lange formule
vb: =als(a1=b1;1;als(a1=b2;1;als(a1=b3;1;""))) enz: tot cel 30

daarom de vraag bestaat er een vba code voor want daar ben ik niet in thuis.

mvg bigfoot

 

[HSV]

Zo lang hoeft het niet te worden.

=ALS.FOUT(--(VERGELIJKEN(A1;B2:B30;0)>0);"")

of:

=--(aantal.als(B2:B30;A1)>0)

 

[bigfoot47]

deze is pak korter maar kan deze ook een ander getal geven bv een andere waarde geven 2

 

[HSV]

=als(aantal.als(B2:B30;A1)>0;2;"")

 

[bigfoot47]

dank je