Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bei Eintrag in Spalte A aktuelle Zeile kopieren

Gruppe

Change

Problem

Wie kann ich veranlassen, daß bei einem beliebigen Eintrag in Spalte A die jeweilige Zeile in einer zweiten Tabelle in die erste frei Zeile eingetragen wird?

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

ClassModule: Tabelle2

Private Sub Worksheet_Change(ByVal Target As Range)
   Dim iRow As Integer, iRowL As Integer
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   iRow = Target.Row
   With Worksheets("Tabelle2")
      If IsEmpty(.Range("A1")) Then
         iRowL = 1
      Else
         iRowL = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      End If
      Range(Cells(iRow, 1), Cells(iRow, 5)).Copy .Cells(iRowL, 1)
      .Columns.AutoFit
   End With
End Sub