Änderungsindex

Private Sub Worksheet_Change(ByVal Target As Range)
Dim vNew As Variant, vOld As Variant
Dim irow As Integer
If Intersect(Target, Range("A4:O80")) Is Nothing Then Exit Sub
vNew = Target.Value
Application.EnableEvents = False
On Error GoTo ERRORHANDLER
Application.Undo
vOld = Target.Value
Target.Value = vNew
With Worksheets("Protokoll")
irow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
.Cells(irow, 1).Value = Target.Address(False, False)
.Cells(irow, 2).Value = "MA"
.Cells(irow, 3).Value = vOld
.Cells(irow, 4).Value = vNew
.Cells(irow, 5).Value = Date
.Cells(irow, 6).Value = Application.UserName
End With
ERRORHANDLER:
Application.EnableEvents = True
End Sub