lg, Georg
s = Worksheets("Tabelle1").Range("D4").Comment.Text
n = InStr(1, s, Chr(10), vbTextCompare) - 1
With Worksheets("Tabelle1").Range("D4").Comment.Shape.TextFrame.Characters(Start:=1, Length:=n).Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
End With
Gruß von Luschi