Gruppe
Ereignis
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.
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