Heb onderstaande macro gevonden bij een antwoord van Jean-Paul
Deze zou perfect passen in mijn project zij het dat de "PreviousValue" niet vermeld word in sheets "Log"
Wat mis ik hier om dit werkende ter maken ?
Met mijn oprechte dank voor aanzet in deze.
Deze zou perfect passen in mijn project zij het dat de "PreviousValue" niet vermeld word in sheets "Log"
Wat mis ik hier om dit werkende ter maken ?
Code:
If target.Value <> PreviousValue Then
x = Environ("USERNAME") & "|" & Application.UserName & "|" & " changed cell " & "|" & ActiveSheet.Name & target.Address _
& "|" & PreviousValue & "|" & target.Value & "|" & Date & "|" & Time
Sheets("log").Cells(65000, 1).End(xlUp).Offset(1, 0).Resize(1, 8).Value = Split(x, "|")
Met mijn oprechte dank voor aanzet in deze.