Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   If Target.Column <> 1 Then Exit Sub
   If Target.Cells.Count > 1 Then Exit Sub
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   With Worksheets("Tabelle2")
      If Not IsEmpty(Target) Then
         var = Application.Match(Target.Value, .Columns(1), 0)
         If Not IsError(var) Then
            Target.Offset(0, 1).Value = .Cells(var, 2).Value
            Target.Offset(0, 2).Value = .Cells(var, 3).Value
         End If
      Else
         Range(Target, Target.Offset(0, 2)).ClearContents
      End If
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

    

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