Sheet Sortieren
01.06.2004 12:09:57
Michael
jeder Tabellenblattnamen ist ind er Form TT.MM.JJ
Mit
Sub SortWorksheets()
Dim iCount As Integer, iFirst As Integer, iSecond As Integer
iCount = ActiveWorkbook.Worksheets.Count
For iFirst = 1 To iCount
For iSecond = iFirst To iCount
If Worksheets(iSecond).Name < Worksheets(iFirst).Name Then
Worksheets(iSecond).Move before:=Worksheets(iFirst)
End If
Next iSecond
Next iFirst
End Sub
sortiere ich diese, aber leider nur nach dem Tag, dh 05.02.04 ist größer als 03.05.04. Wie muss der Code geändert werden, damit dies auch für Monate+Jahre funzt?
Gruß
Michael
Anzeige