VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kommentarvorspanne löschen

Gruppe

Allgemein

Bereich

Kommentar

Thema

Kommentarvorspanne löschen

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

    


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