Gruppe
Ereignis
Problem
Bei jedem Zellwechsel im dunkelblau hinterlegten Bereich soll ein mit SVERWEIS aus dem Blatt "Kommentare" gelieferter Kommentar erscheinen.
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