Re: [de-users] Tabelle sortieren geht doch nicht? (2) - Gelöst!

Hi

'Mein' Fehler war ganz einfach, ich habe in der falschen Tabelle die 
falsche Spalte sortiert.
Nur, die falschen Indexwerte der Tabellen und Spalten habe ich nicht 
eingegeben, sondern mir vom Sortier-Programm ermitteln lassen.

Auf diese 'Falle' war ich dann allerdings nicht vorbereitet:
Manchmal hat zB. die erste Tabelle den Index-Wert 0 manchmal 1 und 
manchmal hat die Spalte J den Index 9, manchmal 10 ;)

Hier (über Recording Makro) springe ich zur ersten Tabelle, die ich dann 
im folgenden sortieren kann:
> dim args1(0) as new com.sun.star.beans.PropertyValue
> args1(0).Name = "Nr"
> args1(0).Value = 1
>
> oDispat.executeDispatch(oDocFrame, ".uno:JumpToTable", "", 0, args1())

Hier hat Tabelle 1 den Index 1 und Spalte 1 ist die erste (J=10) :)


Aber mit dieser Routine (Frieders und A.Pytoniak) haben die erste 
Tabelle und die erste Tabelle den Index 0:
> oSheet = ThisComponent.Sheets(0) ' = erste Tabelle
> oRange = oSheet.getCellRangeByName("B28:D33")
> oSortFields(0).Field = 0 ' = erste Spalte
> oSortFields(0).SortAscending = FALSE
> REM Set the sort fields to use
> oSortDesc(0).Name = "SortFields"
> oSortDesc(0).Value = oSortFields()
> REM Now sort the range!
> oRange.Sort(oSortDesc())

Hony soit qui mal y pense!

Herzlichen Dank noch einmal
Gooly




Am 28.10.2011 17:30, schrieb gooly:
> 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