Kommentar formatieren
14.07.2022 22:42:58
BriBri
ich brauche eure Hilfe, da ich selbst nicht weiterkomme. Ich wollte in meinen Kommentaren nur den Kommentarnamen umbenennen. Dieser ist ja standardmäßig fett gedruckt, während der Kommentar selbst nicht fett ist. Bei der Änderung des Kommentarnamens ist nun alles fett, was ich nicht will. Wie kann ich nun den Kommentartext wieder nicht-fett machen? Das ist mein Code:
Sub ChangeCommentName()
Dim xWs As Worksheet
Dim xComment As Comment
Dim oldName As String
Dim newName As String
oldName = "briga"
newName = "Eva"
For Each xWs In Application.ActiveWorkbook.Worksheets
For Each xComment In xWs.Comments
xComment.Text (Replace(xComment.Text, oldName, newName))
Next
Next
End Sub
Brigitte