Gruppe
Allgemein
Problem
Im Kommentar soll das mit dem Zellinhalt verknüpfte Tabellenblatt genannt werden.
ClassModule: Tabelle1
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim cmt As Comment
Dim sTxt As String
If Target.Cells.Count > 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
If Target.HasFormula Then
If InStr(Target.Formula, "!") > 0 Then
sTxt = Left(Target.Formula, InStr(Target.Formula, "!") - 1)
Set cmt = Target.AddComment(sTxt)
cmt.Shape.TextFrame.AutoSize = True
End If
End If
End Sub