Ursprungstabelle
01.09.2007 15:02:47
chris58
Ich habe diesen Code hier gefunden und möchte fragen, ob man diesen so erweitern kann, daß man in der Zieldatei die Ursprungsdatei (z.B. in Spalte J) angezeigt bekommt. Würde das gehen ?
Danke
chris58
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iRow As Integer, iRowL As Integer
If Target.Column 5 Then Exit Sub
If IsEmpty(Target) Then Exit Sub
iRow = Target.Row
With Worksheets("Jahresumsatz")
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, 6)).Copy .Cells(iRowL, 1)
.Columns.AutoFit
End With
End Sub