ich würde gerne mehreren markierten Zellen per Commandbutton und VBA das gleiche Kommentar anfügen, weiss aber nicht wie das geht.
Bin für jeden Tipp dankbar
Gruß Andreas
Sub test()
Dim c As Range
For Each c In Selection.Cells
c.AddComment ("Hallo")
Next c
End Sub
Sub test()
Dim c As Range
Dim strText As String
strText = "Hallo"
For Each c In Selection.Cells
c.AddComment strText
strText = strText & " Hallo"
' Autosize ist hier das Stichwort für die Optimale Größe.
c.Comment.Shape.TextFrame.AutoSize = True
Next c
End Sub