al gevonden
Private Sub Worksheet_Change(ByVal Target As Range)
Dim tr As Integer
'hier telt hij de waarde van B en C op en maakt B terug leeg
If Not Intersect(Range("G2:G" & Range("A" & Rows.Count).End(xlUp).Row), Target) Is Nothing Then
tr = Target.Row
Range("F" & tr).Value = Range("F" & tr).Value + Range("G" & tr).Value
Target.ClearContents
End If
' datum laatste aanpassing in D zetten
Application.EnableEvents = False
With Target
If .Column = 3 And Not Target.Address(0, 0) = "G1" And Not IsEmpty(Target) Then
.Offset(, 1) = Date
End If
End With
Application.EnableEvents = True
End Sub
Romilied