Hier der ganze Quelltext
Option Explicit
Sub Kommentar()
On Error GoTo fehler
ActiveSheet.Unprotect
Dim Cmt As Comment
'Kommentar in Zelle vorhanden
'Set Cmt = ActiveCell.Comment
'Kommentar in Zelle nicht vorhanden
Set Cmt = ActiveCell.AddComment
'Schrift u.automatische Kommentargröße
With Cmt.Shape.TextFrame
.Characters.Font.Name = "Comic Sans MS"
.Characters.Font.Size = 14
.Characters.Font.ColorIndex = 32 'blau
.Characters.Font.Bold = True
.AutoSize = True
End With
'Hintergrundfarbe Kommentarfeld
Cmt.Shape.Fill.ForeColor.SchemeColor = 5 'gelb
'Text u.Zellfarbe
With ActiveCell
.Comment.Text Text:="Mein Kommentar:"
.Interior.ColorIndex = 43 'grün
End With
Exit Sub
fehler:
MsgBox "kein Kommentar in Zelle oder falsche Anweisung im Makro"
'ActiveSheet.Protect
End Sub
http://www.herber.de/forum/archiv/28...A_aendern.html