VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzeige der Formel mit Quellblattangabe

Gruppe

Allgemein

Bereich

Ansicht

Thema

Anzeige der Formel mit Quellblattangabe

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Ansicht