functie probleem

[edc1]

Ik heb de volgende functie gemaakt.

Function Vetjes(cel)
Vetjes = 0
If cel.Font.Bold = True Then Vetjes = 1 Else Vetjes = 0
End Function

Bij het invoeren van functie op het werkblad verloopt alles correct, doch als ik de cel wijzig naar bold of omgekeerd gebeurt er niets. De functie wordt niet getriggerd. Is hier een oplossing voor?

 

[jheesterbeek]

Zelf gebouwde functies hebben vaker dit probleem (in ieder geval bij mij), door zo nu en dan op F9 (Nu Berekenen) te klikken, of dit op te nemen in een macro met een change-trigger kun je zorgen dat je functie ververst.

Groetjes

John

 

[LucB]

Met Ctrl+Alt+F9 doet ie het zeker.

Zie bijlage.