Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Vergleich Kommentar einfügen

Gruppe

Change

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?

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

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