Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Werte aus Matrix in zweitem Blatt auflisten

Gruppe

Change

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