Automatisch comment note met datum bij wijziging (binnen bepaalde range)

[geertsjelle]

Hallo allemaal,

Wie kan mijn helpen met een VBA code die automatisch een comment note met de datum en de tijd invoegd bij het wijzigen van een cel binnen een bepaalde range in excel?

Ik heb een voorbeeld toegevoegd ter verduidelijking. Bekijk bijlage Voorbeeld.xls

(ik weet dat dit ook met track changes mogelijk is, alleen ik wil dit alleen binnen een bepaalde range en het het gehele document)

Alvast bedankt,

Jelle

 

[HSV]

Jelle,

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
    d = Date & "  " & Time
      datumentijd = "" & d & ""
        If Not Intersect(Target, Range("C6:C13")) Is Nothing Then
      Target.Comment.Delete
    Target.AddComment.Text datumentijd
  End If
End Sub

 

[Mark xl]

Wat ook handig kan zijn is de positie van je opmerking forceren.. bijv.

    With target.Comment.Shape
    
        .Top = target.Top
        .Left = target.Left + target.Width + 1
        .Height = target.Height
        
    End With

 

[geertsjelle]

Bedankt het is gelukt

Heren,

Bedankt voor jullie hulp en codes:thumb:
Ik heb beide codes in mijn excel model gezet en het werkte gelijk

------------

Jelle