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