OpenOffice.info

Code: Alles auswählen

Sub blaetter_sortieren

sheets = thiscomponent.sheets()
dim Liste(sheets().count()-1)'Array dimensionieren

'Blattnamen einlesen↓
for i = 0 to sheets().count()-1
	Liste(i) = sheets(i).name
next 

'↓ das Array sortieren "Bubble-sort"
For n = 0 To ubound(Liste())
	For m = n + 1 To ubound(Liste())
		If Liste(n) > Liste(m) Then
			Temp = Liste(n)
			Liste(n) = Liste(m)
			Liste(m) = Temp
		End If
	Next m
Next n

'↓die Blaetter verschieben
for i = 0 to sheets().count()-1
	sheets().moveByName(Liste(i),i)
next

End Sub