Anzeige der Formel mit Quellblattangabe

Thema: Allgemein - Gruppe Ansicht

Arbeitsmappe

074699    070099

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