Gruppe
Ereignis
Problem
Wie kann ich bei Eingabe die Werte einer Matrix im ersten Arbeitsblatt im zweiten Arbeitsblatt als Liste aufführen?
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