Macro uitvoeren als bepaalde cel wordt aangepast

[nver]

Hallo,

Ik heb een macro in excel die aangeeft wanneer een andere cel is bijgewerkt. Echter werkt deze niet goed. Als het excel-document namelijk geopend wordt geeft de desbetreffende cel de datum en tijd van het openen van het bestand weer. Hoe kan ik dit oplossen?

De code die ik heb opgenomen is:

Private Sub Worksheet_Change(ByVal Target As Range)

Dim WorkRng As Range
Dim Rng As Range
Dim xOffsetColumn As Integer
Set WorkRng = Intersect(Application.ActiveSheet.Range("R3"), Target)
xOffsetColumn = -1
If Not WorkRng Is Nothing Then
Application.EnableEvents = False
For Each Rng In WorkRng
If Not VBA.IsEmpty(Rng.Value) Then
Rng.Offset(0, xOffsetColumn).Value = Now
Rng.Offset(0, xOffsetColumn).NumberFormat = "dd-mm-yyyy, hh:mm:ss"
Else
Rng.Offset(0, xOffsetColumn).ClearContents
End If
Next
Application.EnableEvents = True
End If
End Sub

 

[VenA]

Hoe heb je de code opgenomen? Lijkt mij ook overbodig veel.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$R$3" Then Target.Offset(, -1).Value = IIf(Target.Value = "", "", Format(Now, "dd-mm-yyyy, hh:mm:ss"))
End Sub

Om verder geholpen te worden kijk even hier https://www.helpmij.nl/forum/announcement.php?f=5