Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Zellwert in Kommentar übernehmen

Gruppe

Change

Problem

Zelleinträge sollen in Kommentare eingefügt werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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