Excel und VBA: Formeln, Programmierung, Lösungen

ClassModule: Tabelle1

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim rng As Range
   Dim iRow As Integer
   If Intersect(Target, Range("B2:J21")) Is Nothing Then Exit Sub
   With Worksheets("Ziel")
      Set rng = .Columns("A").Find( _
         Cells(Target.Row, 1).Value & "_" & Cells(1, Target.Column).Value, _
         lookat:=xlWhole, LookIn:=xlValues)
      If rng Is Nothing Then
         iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
         .Cells(iRow, 1) = Cells(Target.Row, 1).Value & "_" & _
            Cells(1, Target.Column).Value
         .Cells(iRow, 2) = Target.Value
      Else
         rng.Offset = Target.Value
      End If
   End With
End Sub

    

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