Excel, Zellinhalte sollen automatisch nach unten "rutschen"
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