Gruppe
Ereignis
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?
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