KrisVercammen
Gebruiker
- Lid geworden
- 24 jun 2019
- Berichten
- 6
Ik probeer met VBA-code de absolute celverwijzing te vervangen door de waarde van de betreffende cel op moment van opslaan. De Absolute celverwijzing maakt deel uit van een formule, minstens 1 maal. Dit om niet elke maal de toekomstige formules te moeten veranderen indien wijziging van waardes in de absolute cel.
Formules zijn volgende:
1/ =IF(F167=0;0;F167-D167-EXTRA1W)
2/ =IF(G14=0;0;IF($D14<500000;"Geen afwijking";IF($E14=FOXEEVANEGATIEF;"Geen afwijking";IF($E14=FOXEEVAMIN10K;"Geen afwijking";IF($D14<750000;IF($E14=FOXEEVAPLUS100K;G14-FOXEGREVAPLUS100K;IF($E14=FOXEEVAPLUS25K;G14-Marges!J$5;G14-Marges!J$5)); IF($E14=FOXEEVAPLUS100K;G14-FOXEGREVAPLUS100K;G14-Marges!J$6))))))
Voor de eerste heb ik al een gedeeltelijke oplossing met VBA-code:
If InStr(SheetFormula.Cells(countall - 1, i).Formula, "EXTRA1W") Then
SheetFormula.Cells(countall - 1, i).Formula = Replace(SheetFormula.Cells(countall - 1, i).Formula, "EXTRA1W", "=0,40%")
End If
Nadeel hier is dat ik in VBA nog dien aan te passen als waarde wijzigt.
Iemand een idee hoe ik in deze formule de "actuele waarde" kan zetten ipv een vast getal?
Formules zijn volgende:
1/ =IF(F167=0;0;F167-D167-EXTRA1W)
2/ =IF(G14=0;0;IF($D14<500000;"Geen afwijking";IF($E14=FOXEEVANEGATIEF;"Geen afwijking";IF($E14=FOXEEVAMIN10K;"Geen afwijking";IF($D14<750000;IF($E14=FOXEEVAPLUS100K;G14-FOXEGREVAPLUS100K;IF($E14=FOXEEVAPLUS25K;G14-Marges!J$5;G14-Marges!J$5)); IF($E14=FOXEEVAPLUS100K;G14-FOXEGREVAPLUS100K;G14-Marges!J$6))))))
Voor de eerste heb ik al een gedeeltelijke oplossing met VBA-code:
If InStr(SheetFormula.Cells(countall - 1, i).Formula, "EXTRA1W") Then
SheetFormula.Cells(countall - 1, i).Formula = Replace(SheetFormula.Cells(countall - 1, i).Formula, "EXTRA1W", "=0,40%")
End If
Nadeel hier is dat ik in VBA nog dien aan te passen als waarde wijzigt.
Iemand een idee hoe ik in deze formule de "actuele waarde" kan zetten ipv een vast getal?