Gruppe
Ereignis
Problem
Zelleinträge sollen in Kommentare eingefügt werden.
ClassModule: Tabelle1
Private Sub Worksheet_Change( _
ByVal Target As Excel.Range)
Dim cmt As Comment
Application.DisplayCommentIndicator = _
xlCommentIndicatorOnly
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
Set cmt = Target.AddComment( _
Text:="Zellinhalt: " & Target.Value)
cmt.Shape.TextFrame.AutoSize = True
End Sub