Bas,
Ik begrijp je vraag niet helemaal, het omzetten van de in het bestand
aanwezige formule is geen probleem, zie onder. Maar waarom zou je
een VBA gebruiken terwijl een functie dit veel effectiever kan.
=ALS(B2<>"";ALS(EN(C2=B2;H2=G2);10;ALS(C2=B2;12;GEHEEL(C2/B2*10)));"")
DIM Uitkomst AS Integer
IF Range("B2") <> "" THEN
IF Range("C2") = Range("B2") AND Range("H2") = Range("G2") THEN
Uitkomst = 10
ELSE IF Range("C2") = Range("B2")
Uitkomst = 12
ELSE
Uitkomst = ROUND(Range("C2") / Range("B2") ;0)
END IF
Range("D2") = Uitkomst
END IF
Veel Succes.
