Kommentartexte über SVERWEIS ermitteln und anzeige
edie
von der Excel-CD habe ich den Code, dabei werden Kommentare in Abhängigkeit der Tabelle2 eingefügt.
Die Kommentare werden im der gesamten Tabelle1 gelöscht durch:
For Each cmt In ActiveSheet.Comments
cmt.Delete
Next cmt
Wie könnte man den Code so anpassen, das die Zeile 1 in der Tabelle1 vom löschen der Kommentare ausgeschlossen wird?
Hier der Code:
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("A3:A200")) Is Nothing Then Exit Sub
On Error Resume Next
Set cmt = Target.AddComment( _
WorksheetFunction.VLookup(Target.Value, _
Worksheets("Tabelle2").Columns("A:B"), 2, 0))
cmt.Shape.TextFrame.AutoSize = True
End Sub
Besten Dank im Voraus.