Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Kommentartexte über SVERWEIS ermitteln und anzeigen

Gruppe

SelectionChange

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