Hallo Excelfreunde,
ich habe in der Zeile 11 ca. 400 Kommentare zu stehen.
Diese möchte ich nun noch Formatieren. Mit einer Schleife bekomme ich es hin, aber es dauert ewig.
Nun versuche ich alle auf einmal zu Formatieren.
Dies ist derzeit mein Ansatz:
Sub UpdateComments()
Dim rng As Range
Dim cell As Range

Set rng = ActiveSheet.UsedRange.SpecialCells(xlCellTypeComments)

With rng.Comment
.Visible = False
.Shape.Width = 300
.Shape.Height = 100
.Shape.TextFrame.Characters.Font.Size = 12
'.Shape.TextFrame.Characters.Font.Bold = True
.Visible = True
End With

End Sub

Aber ich bekomme die fehlermeldung " die Blockvariable ist nicht festgelegt.
Hatt jemand von euch eine Idee wie es funktionieren könnte?
mfg thomas