Thema: Listen von Eingabedaten in einer anderen Tabelle

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   Dim iCol As Integer
   If IsEmpty(Target) Then Exit Sub
   If Target.Column <> 2 Or Target.Row > 20 Then Exit Sub
   With Worksheets("Tabelle1")
      var = Application.Match( _
         Target.Offset(0, -1).Value, .Columns(1), 0)
      If Not IsError(var) Then
         iCol = WorksheetFunction.CountA(.Rows(var)) + 1
         .Cells(var, iCol).Value = Target.Value
      End If
   End With
End Sub

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