Gruppe
Ereignis
Bereich
Change
Thema
Werte aus Matrix in zweitem Blatt auflisten
Problem
Wie kann ich bei Eingabe die Werte einer Matrix im ersten Arbeitsblatt im zweiten Arbeitsblatt als Liste aufführen?
Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.
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