Vielen dank Gerhard
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
With Target
.Comment.Delete
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(Now)
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
With Target
.Comment.Delete
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(Now)
End With
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
On Error Resume Next
With Target
.Comment.Delete
.AddComment
.Comment.Visible = False
.Comment.Text Text:=CStr(Now)
.Comment.Shape.TextFrame.Characters.Font.Size = 12
End With
End Sub