Excel logboek geschiedenis

[DarkMagicianV]

Als ik de formule aanpast in de log dan doet hij het bij een nieuwe regel weer opnieuw.

 

[HSV]

De formule aanpassen over de gehele selectie van kolom E natuurlijk.
=c5-b5 ipv =b5-c5

Beter nog; verwijder die formule en zet dit in moduleblad1.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range, i As Long
If Not Intersect(Target, Range("B8:B52")) Is Nothing Then
    For Each r In Target.Cells
     With Sheets("Mirror")
        If r.Value <> .Range(r.Address).Value Then
          Sheets("log").Cells(Rows.Count, 1).End(xlUp).Offset(1) _
          .Resize(, 5) = Array(Range(r.Address).Offset(, -1).Value, .Range(r.Address).Value, r.Value, Now, r.Value - .Range(r.Address).Value)
          .Range(r.Address).Value = r.Value
        End If
      End With
    Next
End If
End Sub