Microsoft Excel

Herbers Excel/VBA-Archiv

Worksheets nach Datumsformat sortieren | Herbers Excel-Forum


Betrifft: Worksheets nach Datumsformat sortieren von: Stephan
Geschrieben am: 04.01.2010 12:38:30

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

  

Betrifft: AW: Worksheets nach Datumsformat sortieren von: Rudi Maintaire
Geschrieben am: 04.01.2010 12:45:44

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

Gruß
Rudi


  

Betrifft: AW: Worksheets nach Datumsformat sortieren von: Daniel
Geschrieben am: 04.01.2010 12:52:04

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


  

Betrifft: AW: Worksheets nach Datumsformat sortieren von: Stephan
Geschrieben am: 04.01.2010 12:58:28

Hallo,
in meinem Fall ist Lösung von Rudi super!

Danke Rudi, dank aber auch an Daniel!

Gruß
Stephan


Beiträge aus den Excel-Beispielen zum Thema "Worksheets nach Datumsformat sortieren"