Optellen met gewiste waarden

[Nickdude]

Ik wil het volgende: in één cel constant waarden invoeren, waarmee dus ook bij elke nieuwe waarde de oude waarde wordt gewist. In een cel ernaast wil ik vervolgens de som van a de waardes hebben. Weet iemand hier een oplossing voor?

B.v.d.

 

[jzeedijk]

Hoi Nickdude,

Dat kan alleen met behulp van VBA.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A11")) Is Nothing Then
Range("B11") = Range("B11") + Range("A11")
End If
End Sub

De code plakken in de programmaeditor (rechtermuisknop klikken op het tabje van het werkblad, prorogrammacode weergeven kiezen)

Range("A11") kun je natuurlijk vervangen door een andere cel of door een bereik Range("A11:A99")

Jeroen

 

[Nickdude]

Bedankt, probleem opgelost

 

[Nickdude]

Nog 1 vraagje....
nu heb ik dit op deze manier opgelost, maar als ik vervolgens het bestand mail naar iemand anders en daar open en de waarden invul, werkt het niet....
weet iemand hoe dit komt?

 

[jzeedijk]

Hoi Nickdude,

Waarschijnlijk staat de macro-beveiliging op hoog. Hierdoor kunnen geen macro's uitgevoerd worden.

Extra->Macro's->Beveiliging

Jeroen