Hallo,..
In een bestand dat door meerdere personen gebruikt wordt moeten de wijzigingen bijgehouden worden in een blad.
Ik ben bekend met de functie die Excel al aanbied mbt wijzigingen bijhouden,.. echter is het niet de bedoeling dat het bestand gedeeld wordt!
Ik heb onderstaande code al (gejat),.. alleen de oude/oorspronkelijke waarde krijg ik niet voor elkaar. Can someone help me?!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
With Sheets(1).Range("A65536").End(xlUp)
.Offset(1, 0).Value = Application.UserName
.Offset(1, 1).Value = Sh.Name
.Offset(1, 2).Value = Target.Address
.Offset(1, 3).Value = Date
.Offset(1, 4).Value = Time
'.Offset(1, 5).Value = PreviousValue
.Offset(1, 6).Value = Target.Value
End With
Application.EnableEvents = True
End Sub
In een bestand dat door meerdere personen gebruikt wordt moeten de wijzigingen bijgehouden worden in een blad.
Ik ben bekend met de functie die Excel al aanbied mbt wijzigingen bijhouden,.. echter is het niet de bedoeling dat het bestand gedeeld wordt!
Ik heb onderstaande code al (gejat),.. alleen de oude/oorspronkelijke waarde krijg ik niet voor elkaar. Can someone help me?!
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
Application.EnableEvents = False
With Sheets(1).Range("A65536").End(xlUp)
.Offset(1, 0).Value = Application.UserName
.Offset(1, 1).Value = Sh.Name
.Offset(1, 2).Value = Target.Address
.Offset(1, 3).Value = Date
.Offset(1, 4).Value = Time
'.Offset(1, 5).Value = PreviousValue
.Offset(1, 6).Value = Target.Value
End With
Application.EnableEvents = True
End Sub