Hallo Fachleute,

ich habe gleich noch eine Frage zu Kommentaren, wo ich selbst nicht draufkomme und auch nix dazu finde: Ich setze einen Kommentar aus 4 Variablen zusammen:

Set cmt = Cells(r, 4).AddComment _
(Text:=(Trim(aVar & " " & bVar & " " & cVar & ":") & Chr(10) _
& dVar))

Mit:

With cmt.Shape.TextFrame
.Characters.Font.Underline = True
End With

lässt sich der Inhalt des Kommentares unterstreichen. Per Hand ist es ja z.B. möglich, nur einen Teil zu unterstreichen. Und genau das hätte ich gerne:

Ich möchte nur den Teil "Trim()" - also alles vor dem Zeilenwechsel - unterstreichen, und dVar soll NICHT unterstrichen werden.

Ist das möglich? Und wenn ja, könnt Ihr mir bitte dabei helfen?

Vielen Dank schon mal im Voraus

Grüße
Franz