Thema: Anwendername im Kommentar nicht fettgedruckt

StandardModule: Modul1

Sub NewComment()
   Dim sComment As String
   sComment = InputBox( _
      prompt:="Bitte Kommentar eingeben:")
   If sComment = "" Then Exit Sub
   With ActiveCell
      .AddComment
      .Comment.Visible = False
      .Comment.Text _
         Text:=Application.UserName & _
         ":" & vbLf & sComment
   End With
   Application.DisplayCommentIndicator = _
      xlCommentIndicatorOnly
End Sub

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kommentar