Command Button
30.05.2002 22:29:26
Karl-Heinz
wie kann ich dieses makro:
Sub Kommentar_einfügen() 'Kommentar in angepasster Größe einfügen
Dim objComment As Comment
'Application.DisplayCommentIndicator = xlCommentAndIndicator
Set objComment = ActiveCell.AddComment
For Each Cmt In ActiveSheet.Comments
If Cmt.Shape.TextFrame.AutoSize = False Then Cmt.Shape.TextFrame.AutoSize = True
Cmt.Visible = False
Next Cmt
End Sub
einem Command Button zuweisen? habe es mit RechtsKlick und Code einfügen probiert, funktioniert nicht???
wer kann mir von Euch Profis da helfen??
Danke K-H
Anzeige