Das Schriftformat von Kommentaren ändern (Tipp_71) -
04.10.2008Sie haben in Ihren Arbeitsblättern viele Kommentare eingefügt und möchten nun das Schriftformat einheitlich verändern. Das wird sehr aufwendig, da jede einzelne Zelle, die einen Kommentar enthält, angewählt werden und man sich dann durch ein Flut von Untermenüs bewegen muss. Hier kann ein kleines Makro Abhilfe schaffen. In diesem Beispiel werden alle Kommentare mit Schriftgröße 10 und Fettdruck eingestellt:
Sub Kommentar_Font()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame.Characters.Font
.Size = 10
.Bold = True
End With
Next
End Sub
