Gruppe
Ereignis
Problem
Wie kann ich bei Eingaben in Spalte A diese mit Spalte C vergleichen und bei gleichen Werten den Wert von Spalte B als Kommentar einfügen?
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
Dim cmt As Comment
If Target.Column <> 1 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If Not Target.Comment Is Nothing Then
Target.Comment.Delete
End If
If Target.Value = Cells(Target.Row, 3).Value Then
Set cmt = Target.AddComment(Cells(Target.Row, 2).Value)
cmt.Shape.TextFrame.AutoSize = True
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
End Sub