Gruppe
Allgemein
Problem
Die Kommentarvorspanne der Kommentare sollen gelöscht werden.
StandardModule: Modul1
Sub EditComment()
Dim cmt As Comment
Dim sCmt As String, sWhat As String, sReplace As String
sWhat = "Hans W. Herber:" & vbLf
sReplace = ""
For Each cmt In ActiveSheet.Comments
sCmt = cmt.Text
sCmt = WorksheetFunction.Substitute(sCmt, sWhat, sReplace)
With cmt.Shape.TextFrame.Characters
.Text = sCmt
.Font.Bold = False
End With
Next cmt
End Sub