Macro uitvoeren als bepaalde cel wordt aangepast
Geplaatst: vr jul 05, 2019 12:33 pm
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 desbetreffede 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
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 desbetreffede 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