Hi,

ich versuche folgendes:

Eintrag in Zelle A10 soll automatisch in Zelle A11 eingetragen werden und jeder weitere Eintrag in A10 ebenso. Die bereits vorhanden Einträge sollen dabei nach unten verschoben werden. Das selbe will ich auch in der Spalte B, C, D... usw machen. Für die Spalte A hab ich es schon geschafft, allerdings bekomme ich für die weiteren Spalten nicht hin. Kann mir jemand helfen...wäre echt super....

Soweit bin ich schon:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler

If Not Intersect(Target, Range("A1")) Is Nothing Then

Range("B65536").End(xlUp).Offset(1, 0).Value = Target.Value

Application.EnableEvents = False

Target.Value = ""

Target.Select

ErrorHandler:

Application.EnableEvents = True

End If

End Sub