Antwort ist:
WEnn die Tabellenblätter nur aus Ziffern bestehen reicht VAL statt LCase:
Code: Alles auswählen
Sub Sortieren_steigend()
dok = StarDesktop.CurrentComponent
anz = dok.Sheets().Count
dim a(anz-1)
For i = 0 to anz-1
a(i) = dok.Sheets(i).Name
Next
For i = 0 To anz-2
For j = i+1 to anz-1
If VAL(a(i)) > VAL(a(j)) Then
temp = a(i)
a(i) = a(j)
a(j) = temp
End If
Next j
Next i
For i = 0 to anz-1
dok.Sheets.moveByName(a(i),i)
Next i
End Sub
Gruß
Stephan