Datum automatisch sortieren

Stefanie · 2005-09-28T09:19:39+00:00

Hallo zusammen, ich habe ein kleines Problem, welches ich nicht lösen kann. Wie kann ich in einer Tabelle automatisch sortieren lassen? Ich habe dort Datumsangaben drinstehen und in den Zeilen stehen dazugehörige Datensätze. Nun möchte ich gern, wenn ein neuer Datensatz hinzukommt, dass es automatisch sortiert wird und auch die dazugehörigen Datensätze in der Zeile mitgenommen werden (weiß nicht wie ich das besser ausdrücken soll). Ich möchte das die Datumsangaben aufsteigend sortiert werden. Hat Excel so eine Funkiton? Ich möchte halt nicht die immer die manuelle Sortierung in Excel bei jedem neuen Datensatz durchführen müssen. Hat jemand eine Idee, wie ich das lösen kann? Wäre echt toll. Gibts da schon was in Excel, wenn nicht könnte ich das uach über VBA lösen?. Wäre toll wenn mir jemand einen Ansatz geben könnte. Vielen Dank im Voraus. Beste Grüße

Halllo Matthias,
habe es so gemacht und die Änderungen (Anpassungen) durchgeführt. Dann kommt eine Fehlermeldung: Laufzeitfehler 1004 Anwendungs- oder objektdefinierter Fehler. Woran liegt das? Ein Problem gibt es noch. Das Tabellenblatt wird nicht vom Nutzer aktiviert werden können, da es ihm nicht zugänglich gemacht wird, somit ist die die Sortierung durch aktivieren schwierig.
Müsste nicht bei Range ("A2") der ganze Bereich angegeben werden? Range ("A2:A16") bspw.?
Bei mir steht jetzt folgendes:


Private Sub Worksheet_Activate()
Columns("A:H").Sort Key1:=Range("B384"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Danke Dir für Deine Mühe.
Beste Grüße
Stefanie

Hallo Matthias,
ich bins noch mal. Jetzt funktioniert das Sortieren aber leider nicht ganz richtig. Der Code sieht wie folgt aus (mit Makrorekorder aufgezeichnet und eingefügt):


Private Sub Worksheet_Activate()
Range("B384:B433").Select
Range("A383:H433").Sort Key1:=Range("B384"), Order1:=xlAscending, Header _
:=xlGuess, OrderCustom:=8, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortTextAsNumbers
End Sub

Wenn ich es manuell über die Excel Sortierfunktion mache, dann fragt er mich ob er Zahlen auch als solche sortieren soll oder Text und Zahl extra sortieren soll. Das liegt daran, dass Jan. als Text gewertet und klar 2005 als Zahl gewertet wird. Wenn ich angebe Zahl als Zahl sortieren, dann klappt es auch. Doch leider klappt das nicht beim aufgezeichneten Makro. Dann steht Apr. 2005 oben dann kommt Feb.2005 etc. Hast Du ne Idee was ich VBA Code ändern muss, um die richtige Lösung zu erhalten?
Danke und beste Grüße
Stefanie

Datum	Ereignis
01.01.2023	Neujahr
15.03.2023	Meeting
25.12.2023	Weihnachten

Forumthread: Datum automatisch sortieren

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial