ich freue mich rieisg endlich ein Teil dieses Forums zu sein.
Zu meiner Frage.
Ich möchte gerne Kommentare mittels Makro erstellen.
Knifflig ist, dass ich auch mehrere Zellen gleichzeitig mit einem und dem selben Kommentar befüllen will.
Bereits eingetragene (individuelle) Kommentare sollen nicht gelöscht, sondern ergänzt werden.
Das bereits vorhandene Makro behält bereits Kommentare bei und ergänzt diese.
Sub KommentareErgänzen()
Dim sAlt As String
Dim sNeu As String
sNeu = InputBox("Geben Sie einen Kommentar ein", "Kommentar ergänzen")
If sNeu = "" Then Exit Sub
With ActiveCell
On Error Resume Next
sAlt = .Comment.Text
If sAlt = "" Then .AddComment
sNeu = sAlt & Chr(10) & Application.UserName _
& Chr(10) & Date & "/" & Time & _
Chr(10) & sNeu & Chr(10)
.Comment.Text sNeu
.Comment.Visible = False
.Comment.Shape.TextFrame.AutoSize = True
End With
End Sub
Freue mich über jede Hilfe