Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kommentarvorspanne löschen

Gruppe

Kommentar

Problem

Die Kommentarvorspanne der Kommentare sollen gelöscht werden.

Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

Sub EditComment()
   Dim cmt As Comment
   Dim sCmt As String, sWhat As String, sReplace As String
   sWhat = "Hans W. Herber:" & vbLf
   sReplace = ""
   For Each cmt In ActiveSheet.Comments
      sCmt = cmt.Text
      sCmt = WorksheetFunction.Substitute(sCmt, sWhat, sReplace)
      With cmt.Shape.TextFrame.Characters
         .Text = sCmt
         .Font.Bold = False
      End With
   Next cmt
End Sub