Ich möchte, dass das neueste Kommentar jeweils in der ersten Zeile im Kommentarfeld steht und nicht wie hier, jeweils unten angefügt wird. Kann mir bitte jemand helfen.
Danke und Gruss
Olaf
With ActiveCell
If .Comment Is Nothing Then
strNewComment = Date & ", " & Application.UserName & ": " & InputBox("Neues Kommentar erfassen") & Chr(10)
.AddComment strNewComment
Else
strAddComment = .Comment.Text & Date & ", " & Application.UserName & ": " & _
InputBox("Kommentar " & _
"ergänzen")
.ClearComments
.AddComment strAddComment & Chr(10)
End If
ActiveCell.Comment.Shape.TextFrame.AutoSize = True
End With