VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Nach Vergleich Kommentar einfügen

Gruppe

Ereignis

Bereich

Change

Thema

Nach Vergleich Kommentar einfügen

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

    


Beiträge aus dem Excel-Forum zu den Themen Ereignis und Change