Sortierproblem
10.10.2008 18:32:00
Steffan
ich habe eine Tabelle, die ich nach Geburtsdaten sortieren möchte. Hierzu habe ich folgendes geschrieben:
Range("G1").Select
Selection.Sort Key1:=Range("G2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Das klappt soweit auch - ABER:
In Spalte G stehen die Geburtstage. Eine MsgBox gibt mir im weiteren Verlauf des Makros die Auskunft in wievielen Tagen wer welchen Geburtstag hat.
Bei der obigen Sortierung wird leider nicht berücksichtigt, das z. B. der 26.10.1967 eher Geburtstag hat als der 1.11.1961 weil die Sortierung das Jahr 1961 vor 1967 setzt.
Die Sortierung müsste also erst den Tag, dann den Monat und danach erst das Jahr betrachten.
Wie also müsste ich meinen Befehl anpassen oder ändern?
Schon mal vielen Dank im voraus,
Steffan