Invoer getal automatisch laten delen

[Rickk91]

Beste forum gebruikers,

ik vraag me af of het mogelijk is om dmv vba een aantal geselecteerde cellen automatisch te laten delen met 3,91.
Nu moet ik alles met de rekenmachine uit gaan rekenen, maar als ik bijvoorbeeld in cel a5 100 plaats, dat hij dit automatisch deelt door 3,91.

Ik hoop dat jullie mij kunnen helpen
Mvg Rick91

 

[edmoor]

Daar is geen VBA voor nodig:
Bekijk bijlage Delen.xlsx

 

[Rickk91]

Goedemiddag Ed,

Deze functie had ik al geprobeerd, maar dan moet ik in a2 toch nog een getal zetten en dan zet die in b2 de uitkomst. Ik wil juist dat als ik in a2 100 zet, dan excel het dan gelijk veranderd naar de uitkomst in de zelfde cel.

 

[HSV]

In bladmodule van toepassing Rick.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
  If Target.Address(0, 0) = "A2" Then Target = Target / 3.91
Application.EnableEvents = True
End Sub