Cel terug op nul zetten na enter.

[Veryfood]

Het is misschien een beetje een vreemde tittel, maar zal proberen uitleggen wat ik precies zoek.

Ik heb namelijk een werkblad om een stock bij te houden.
Bvb. In kolom A heb je het product staan, in kolom B heb je de begin stock staan, in kolom C moet de hoeveelheid ingevuld worden die uit de stock wordt genomen, in D moet de hoeveelheid ingevuld worden die aan de stock wordt toegevoegd en uiteindelijk heb je in E de nieuwe hoeveelheid stock.
Wat ik nu precies zoek is een formule voor kolom C en D, die ervoor zorgt dat die cellen terug leeg zijn na het invullen en enter drukken. zodoende dat de volgende die een in of out van de stock moet invullen niet telkens het getal van de vorige moet deleten.

Ik hoop dat het min of meer wat duidelijk is wat ik zoek en dat er me hopelijk snel iemand een oplossing kan bieden.

Alvast hartelijk dank.

 

[VenA]

Dat kan alleen met VBA

Zonder voorbeeldbestand

Private Sub Worksheet_Change(ByVal Target As Range)
  If Intersect(Target, Columns("B:D")) Is Nothing Or Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
    Cells(Target.Row, 5) = IIf(Target.Column = 2, Target.Value, Cells(Target.Row, 5) - Cells(Target.Row, 3).Value + Cells(Target.Row, 4).Value)
    Cells(Target.Row, 3).Resize(, 2).ClearContents
  Application.EnableEvents = True
End Sub