Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Home Zurück Vor

Download Beispiel-Arbeitsmappe

Thema

Wert in zweiter Tabelle suchen und als Kommentar ausgeben

Gruppe

Change

Problem

Bei Eingaben in Spalte A soll der Eingabetext in Spalte A von Tabelle2 gesucht und die Werte der Nachbarzelle sollen in der Eingabezelle als Kommentar angezeigt werden.

Lösung

Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim wks As Worksheet
   Dim var As Variant
   Dim sTxt As String
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   Set wks = Worksheets("Tabelle2")
   var = Application.Match(Target, wks.Columns(1), 0)
   On Error Resume Next
   Target.Comment.Delete
   On Error GoTo 0
   If IsError(var) Then Exit Sub
   sTxt = "Spalte B: " & wks.Cells(var, 2) & vbLf
   sTxt = sTxt & "Spalte C: " & wks.Cells(var, 3) & vbLf
   sTxt = sTxt & "Spalte D: " & wks.Cells(var, 4)
   If sTxt <> "" Then
      ActiveCell.AddComment sTxt
   End If
End Sub