Thema: Worksheets nach Datumsformat sortieren | Herbers Excel-Forum

Hallo,
möchte meine Arbeitsblätter nach Datum absteigend sortieren, deren Ziffern 1-10 ein Datum darstellen
z.B.
30.01.2009
04.02.2009
30.12.2009
31.12.2009 (1)
31.12.2009 (2)
01.01.2010
02.01.2010
04.01.2010 (1)
04.01.2010 (2)
leider funktioniert dies nicht mit folgende, Code wegen dem Integer:
Dim WsW As Worksheet
Dim InI As Integer
Dim InJ As Integer
Set WsW = ActiveSheet '
For InI = 1 To ActiveWorkbook.Worksheets.Count
For InJ = InI To ActiveWorkbook.Worksheets.Count
If Worksheets(InJ).Name > Worksheets(InI).Name Then
Worksheets(InJ).Move Before:=Worksheets(InI)
End If
Next InJ
Next InI
WsW.Activate
Set WsW = Nothing
Innerhalb eines Monats funktioniert dies, doch sobald vom Vormonat z.B. der 30.01.2009 steht ist dies größer als der 04.02.2009.
Habe schon überall gesucht, doch bin leider nicht fündig geworden.
Gibt es eine Lösung hierzu, oder muß ich die Dateien Monatorientiert ablegen.
Gruß
Stephan

Hallo,
If cdate(left(Worksheets(InJ).Name,10)) > cdate(left(Worksheets(InI).Name,10)) Then
Gruß
Rudi

Hi
die einfachste Möglichkeit ist wahrscheinlich, wenn du die Tabellenblätter nicht nach dem Schema TT.MM.JJJJ benennst, sondern JJJJ-MM-TT, dann sollte die Sortierung funktionieren (diese Datumsschreibweise ist in unserer Firma schon seit Jahren offizieller Standard)
andere Möglichkeit wäre, den Bennenungstext in ein echtes Datum umzuwandeln, du müsstest dann immer statt Worksheets(InI).Name folgendes Schreiben: CDate(Worksheets(InI).Name).
allerdings MUSS dann jede Tabellenblattbenenung auch einem echten Datum entsprechen, sonst gibts nen Fehlerabbruch, dh für alle Fälle, wo es 2 oder mehr Blätter pro Monat gibt, musst du dir eine sonderlösung ausdenken. Ich denke mal, die Änderung der Schreibweise ist die einfachste Lösung.
Gruß, Daniel

Hallo,
in meinem Fall ist Lösung von Rudi super!
Danke Rudi, dank aber auch an Daniel!
Gruß
Stephan