Sub SeraditListy
Dim Listy
Dim i As Integer
Dim Opakovat As Boolean
Listy = ThisComponent.Sheets
If Listy.getCount() > 1 Then 'Listy nejsou serazeny
Do
Opakovat = False 'Budeme opakovat akci az do doby, kdy jiz dalsi opakovani serazovani nelze aplikovat
For i = 0 to Listy.getCount()-2
If Listy.getByIndex(i).Name > Listy.getByIndex(i+1).Name Then
Listy.moveByName(Listy.getByIndex(i+1).Name,i)
Opakovat = True
End If
Next
Loop Until Opakovat = False
End If
End Sub
Děkuji
]]>