[de-users] Tabelle sortieren geht doch nicht? (2)

Ich habe jetzt einen anderen Weg versucht,
endlich die Tabelle zu sortieren - auch das geht nicht??
Über Makro-aufzeichnen kam ich hierzu, wobei ich jetzt die Werte der Sub 
übergebe:

> mySort("$A$2", "$A$2:$V$403", 9)

> sub mySort (topLeft as String, sRange as String, sortColumn as Integer)
> rem ----------------------------------------------------------------------
> rem define variables
> dim oDocSort   as object
> dim oDispat as object
> rem ----------------------------------------------------------------------
> rem get access to the oDocSort
> oDocSort = ThisComponent.CurrentController.Frame
> oDispat  = createUnoService("com.sun.star.frame.DispatchHelper")
>
> rem ----------------------------------------------------------------------
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Nr"
> args1(0).Value = 1
>
> oDispat.executeDispatch(oDocSort, ".uno:JumpToTable", "", 0, args1())
>
> rem ----------------------------------------------------------------------
> dim args2(0) as new com.sun.star.beans.PropertyValue
> args2(0).Name = "ToPoint"
> args2(0).Value = topLeft ' "$A$2"
>
> oDispat.executeDispatch(oDocSort, ".uno:GoToCell", "", 0, args2())
>
> rem ----------------------------------------------------------------------
> dim args3(0) as new com.sun.star.beans.PropertyValue
> args3(0).Name = "ToPoint"
> args3(0).Value = sRange ' "$A$2:$V$403"
>
> oDispat.executeDispatch(oDocSort, ".uno:GoToCell", "", 0, args3())
>
> rem ----------------------------------------------------------------------
> dim args4(9) as new com.sun.star.beans.PropertyValue
> args4(0).Name = "ByRows"
> args4(0).Value = true
> args4(1).Name = "HasHeader"
> args4(1).Value = false
> args4(2).Name = "CaseSensitive"
> args4(2).Value = false
> args4(3).Name = "NaturalSort"
> args4(3).Value = false
> args4(4).Name = "IncludeAttribs"
> args4(4).Value = true
> args4(5).Name = "UserDefIndex"
> args4(5).Value = 0
> args4(6).Name = "Col1"
> args4(6).Value = sortColumn
> args4(7).Name = "Ascending1"
> args4(7).Value = true
> args4(8).Name = "Col2"
> args4(8).Value = 2
> args4(9).Name = "Ascending2"
> args4(9).Value = false
>
> oDispat.executeDispatch(oDocSort, ".uno:DataSort", "", 0, args4())
>
> end sub

Damit kriege ich die Sortierresultat (??? ratlos)

> Spalte "J" = 9
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=2
> LotsMultiplier=2
> LotsMultiplier=2
> LotsMultiplier=2
> LotsMultiplier=2
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
> LotsMultiplier=1.5
....

Immerhin hir wurde sogar etwas bewegt, mit
>    oSortRange.Sort(aSortDesc())
passierte gar nichts?

Ist das ein bekannter Bug?
gooly

--
Informationen zum Abmelden: E-Mail an users+help@de.libreoffice.org
Tips zu Listenmails: http://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert