Automatisch berekenen

[jozach]

Goedenavond,

Kan iemand mij aub helpen?

Ik wil graag een formule/macro hebben die het volgende voor mij doet:

In cel A1 staat bv getal 10 , nu vul ik in cel B1 het getal 8 nu moet cel A1 de uitkomst worden van A1 min B1 dus getal 2 en cel B moet na deze berekening leeg zijn.
Is dit mogelijk met een macro of formule?

Bij voorbaat dank

 

[JEC.]

Geldt het alleen voor A1 of voor de hele kolom?

 

[jozach]

Hi Jveer,

Bedankt voor je snelle reactie, voor de gehele kolom zou prima moeten zijn

 

[VenA]

Voor 1 cel

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address(0, 0) = "B1" Then Target.Offset(, -1) = Target.Offset(, -1) - Target.Value
End Sub

 

[JEC.]

Voor de kolom

Private Sub Worksheet_Change(ByVal Target As Range)
With Application
.EnableEvents = False
  If Not Intersect(Target, Columns(2)) Is Nothing Then
     If IsNumeric(Target) Then Target.Offset(, -1).Value = Target.Offset(, -1).Value - Target.Value
      Target.ClearContents
  End If
.EnableEvents = True
End With
End Sub

 

[jozach]

Het werkt, onwijs bedankt!

Fijne avond!