Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzeige der Formel mit Quellblattangabe

Gruppe

Ansicht

Problem

Im Kommentar soll das mit dem Zellinhalt verknüpfte Tabellenblatt genannt werden.

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

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