Anzeige: Neueste Daten nach oben

Hallo, ich versuche folgendes zu erreichen: In Zelle E5 wird eine Zahl eingegeben, die nach ENTER in A1 übernommen wird. Anschließend wird E5 wieder aktiviert. bei ENTER nach der nächsten Eingabe in E5 soll die Zahl aus A1 in A2 verschoben werden und die neue aus E5 in A1 stehen. Und so immer weiter, die neueste Zahl immer oben. Das ganze bis A15, alles was weiter "runter geht, soll verschwinden.
Ich habe folgendes probiert, das geht aber nicht:


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A15").Select
Selection.ClearContents
Range("A1:A14").Select
Selection.Cut
Range("A2:A15").Select
ActiveSheet.Paste
Range("E5").Select
Selection.Cut
Range("A1").Select
ActiveSheet.Paste
Range("E5").Select
End Sub

HILFE!! Danke im Voraus!!
Gruß
Werner

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$E$5" Then If Range("A1") = "" Then Range("A1") = Target Else Cells(Range("A65536").End(xlUp).Row + 1, 1) = Target End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$5" Then Exit Sub On Error GoTo ErrorHandler Application.EnableEvents = False Target.Cut Range("A1").Insert ErrorHandler: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$5" Then Exit Sub On Error GoTo ErrorHandler Application.EnableEvents = False Range("A15").ClearContents Target.Cut Range("A1").Insert ErrorHandler: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$5" Then Exit Sub Range("A1:A14").Cut Range("A2") Range("A1") = Target With Range("E5") .Value = "" .Select End With Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$E$5" Then Exit Sub Application.EnableEvents = False Range("A1:A14").Cut Range("A2") Range("A1") = Target With Range("E5") .Value = "" .Select End With Application.EnableEvents = True End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) Range("E5").Copy Range("A1") Application.CutCopyMode = False Range("A1:A13").Copy Range("A2:A14") Application.CutCopyMode = False Range("A1").ClearContents Application.EnableEvents = False Range("E5").Activate Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread