VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Werte aus Matrix in zweitem Blatt auflisten

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

    


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