Kommentar ändern / ergänzen
14.10.2014 10:29:34
Peter
Ich habe folgenden Code gefunden der mir einen Kommentar in die Aktive Zelle schreibt.
Sub kommentarrein()
Dim kom As Comment
Dim s As String
s = InputBox("Kommentar einfügen!", "KOMMENTAR")
If s = "" Then Exit Sub
Set kom = ActiveCell.AddComment
kom.Text Application.UserName & Chr(10) _
& Date & Chr(10) & Time & Chr(10) & s
With kom.Shape.TextFrame
.Characters.Font.Name = "Courier"
.Characters.Font.Size = 10
.AutoSize = True
End With
End Sub
einen bereits in der Zelle stehenden Kommentar ändert oder ergänzt.
Ich hätte gerne , daß der Kommentar inder Zelle dan in der Inputbox aufscheint und ich den editieren kann.
Bitte um Hilfe und Danke vielmals
Gruß
petersax