ich habe untenstehenden Code hier im Forum gefunden und habe nur eine kleine Modifikation
vorgenommen, da ich den Namen nicht ändern, sondern komplett entfernen möchte. Deshalb habe ich einfach das >Dein Text
Sub Kommentar_Zeile1_modifizieren()
Dim Zelle As Range
Dim sichtbar As Boolean
For Each Zelle In Cells.SpecialCells(xlCellTypeComments)
With Zelle.Comment
sichtbar = .Visible
.Visible = True
.Text Text:="Dein Text" & Mid(.Text, InStr(.Text, Chr(10)))
.Shape.Select True
Selection.Characters(Start:=InStr(.Text, Chr(10)) + 1).Font.FontStyle = "Standard"
.Visible = sichtbar
End With
Next
End Sub
Grüße!