In einer Liste sollen Änderungen in Zelle D4 mit einem Kommentar eingetragen werden. Dies funkt mit dem u.a. Code auch halbwegs gut.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xrng As Range
Set xrng = Range("D4")
If Not Application.Intersect(xrng, Range(Target.Address)) _
Is Nothing Then
Range("E4").AddComment Text:="Eintragung von " & _
Application.UserName & _
" am " & _
Format(Date, "dd.mm.yy")
End If
End Sub
Wenn jedoch bereits ein Kommentar in der Zelle E4 vorhanden ist, wird mir ein Laufzeitfehler angezeigt.Meine Frage lautet nun: Ist es möglich, dass man bei einem bereits vorhandenen Kommentar, einen weiteren Kommentar hinzufügen kann?
Wäre euch für jede Hilfe dankbar.
MfG Roland