habe hier eine VBA Code gefunden der fast zu meiner Tabelle passt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range(Cells(Target.Row, 18), Cells(Target.Row, 18))) Is Nothing Then
If Not IsEmpty(Target) Then
Rows(Cells(Rows.Count, 1).End(xlUp).Row).Copy
Rows(Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert
End If
End If
End Sub
Leider wird immer die erste Zeile kopiert, bei mir soll aber Zeile 7 kopiert und dann eine Zeile runter geschoben werden ect.Wo muß ich Excel Zeile 7 angeben ?
Hab verschiedenes versucht, klappt aber nicht.
Gruß
Erik