Datum automatisch sortieren

[keinplanvonexcel]

Hallo Liebe Community,

ich möchte, dass sich die Spalte automatisch sortiert wenn ich ein neues Datum hinzufüge oder ändere.
Leider habe ich nicht so viel Ahnung und habe bis jetzt nur den unteren Code in den Visual Basic Editor eingefügt und auf Speichern gedrückt, aber es passiert nichts wenn ich die Datei öffne.



Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice 20160606
    On Error Resume Next
    If Application.Intersect(Target, Application.Columns(1)) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    Range("C7").Sort Key1:=Range("C100"), Order1:=xlAscending, Header:=xlYes, _
                                        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub


Dateien bitte im Forum hochladen: https://www.clever-excel-forum.de/thread-326.html

Ich danke für die Hilfe :)!

[Klaus-Dieter]

Hallo,

da scheint mir einiges etwas ungereimt zu sein. Wozu hast du die Anweisung "On Error Resume Next" eingetragen?

[keinplanvonexcel]

Den Code habe ich aus einem Beitrag im Internet kopiert, habe aber auch ein paar andere versucht. Wie z.B den hier:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Long
If Not Intersect(Target, Range("A1")) Is Nothing Then
r = Cells(Rows.Count, "A").End(xlUp).Row
Range("A1:Q" & r).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlYes
End If
End Sub

[keinplanvonexcel]

Hat sich erledigt, danke für die hilfe...