benötige eure Hilfe, wer kann mir sagen wie ich ca. 50 Kommentare in einem Arbeitsblatt gleichzeitig neu formatieren kann, z.B. (Schriftgröße)
Danke für jeden Ansatz.
Volker
Sub Kommentar_Font()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame.Characters.Font
.Size = 100
.Bold = True
.ColorIndex = 3
.FontStyle = "Arial"
End With
Cell.Comment.Shape.Fill.ForeColor.SchemeColor = 32 Hintergrundfarbe
Next
End Sub
Sub Kommentar_Font_14_AutoSize()
Dim Cell As Range
For Each Cell In Cells.SpecialCells(xlCellTypeComments)
With Cell.Comment.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.Bold = False
.AutoSize = True
End With
Next
End Sub