Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Listen von Eingabedaten in einer anderen Tabelle

Gruppe

Change

Problem

Eingaben in Spalte B des Daten-Blattes sollen in einer zweiten Tabelle bis gesamt 10 Stück gelistet werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul des Arbeitsblattes ein.

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim var As Variant
   Dim iCol As Integer
   If IsEmpty(Target) Then Exit Sub
   If Target.Column <> 2 Or Target.Row > 20 Then Exit Sub
   With Worksheets("Tabelle1")
      var = Application.Match( _
         Target.Offset(0, -1).Value, .Columns(1), 0)
      If Not IsError(var) Then
         iCol = WorksheetFunction.CountA(.Rows(var)) + 1
         .Cells(var, iCol).Value = Target.Value
      End If
   End With
End Sub