2 Schriftgrößen im Kommentar

Private Sub CommandButton3_Click() 'Kommentar_erstellen
Dim cmt As Comment
Dim sComment As String
'Application.DisplayCommentIndicator = xlCommentAndIndicator
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not ActiveCell.Comment Is Nothing Then
ActiveCell.Comment.Delete
End If
sComment = InputBox(prompt:="Bitte Kommentar eingeben:")
If sComment = "" Then Exit Sub
Set cmt = ActiveCell.AddComment
With cmt
.Visible = False
.Text Text:=Application.UserName & ":" & vbLf & sComment
With .Shape
.Height = 40
.Width = 150
With cmt.Shape.TextFrame.Characters.Font
.Name = "Arial"
.Size = 12
.Bold = False
End With
End With
End With
End Sub