VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Kommentartexte über SVERWEIS ermitteln und anzeigen

Gruppe

Ereignis

Bereich

SelectionChange

Thema

Kommentartexte über SVERWEIS ermitteln und anzeigen

Problem

Bei jedem Zellwechsel im dunkelblau hinterlegten Bereich soll ein mit SVERWEIS aus dem Blatt "Kommentare" gelieferter Kommentar erscheinen.

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UsereForm ein.




ClassModule: Tabelle1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   Dim cmt As Comment
   Dim rng As Range
   For Each cmt In ActiveSheet.Comments
      cmt.Delete
   Next cmt
   If Intersect(Target, Range("A1:D12")) Is Nothing Then Exit Sub
   Set cmt = Target.AddComment( _
      WorksheetFunction.VLookup(Target.Value, _
      Worksheets("Kommentare").Columns("A:B"), 2, 0))
   cmt.Shape.TextFrame.AutoSize = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und SelectionChange