Ich habe u.a. ein Makro, welches die Kommentareingabe automatisiert. Das läuft auch prima. Leider weiß ich nicht wie ich es anstellen soll, dass der Username fett und die Texteingabe
Normal dargestellt wird. Entweder ist bei mir alles fett oder alles normal. Wer kann mir da ein Tip geben ?
Sub KommentarErfassen()
ActiveSheet.Unprotect "Kalenderplan"
Dim Kom As Comment
Dim s As String
Beep
s = InputBox _
("Geben Sie Ihren Kommentar ein!", "Kommentar erfassen")
If s = "" Then Exit Sub
Set Kom = ActiveCell.AddComment
Kom.Text Application.UserName _
& " : " & Chr(10) & s & Chr(10)
With Kom.Shape.TextFrame
.Characters.Font.Name = "Arial"
.Characters.Font.Size = 8
.AutoSize = True
.Characters.Font.Bold = True " Aktivieren Fett oder Normal
End With
ActiveSheet.Protect "Kalenderplan"
End Sub