Datenbereich sortieren (gelöst)

[clag]

Hallo Kenner und Könner,

ein Frage und Bitte habe ich noch für Heute......

ich möchte einem benannten Bereich der aus 4 Spalten und 1000 Zeilen besteht
nach der zweiten 2. Zeile absteigend (Zahlen) und nach der 1.Zeile aufsteigend (Text) sortieren

was ich bis jetzt gefunden habe sieht für mich recht verwirrend aus zB dieses
ist jemand so nett und kann mir das einmal für den obigen Fall konkret aufzeigen ? Bütte

[turtle47]

Hallo,

hast Du Dich dort auch schon einmal umgesehen?

Viel Erfolg.

Jürgen

[clag]

Hallo Turtle47,

ja das ist immer meine erste Anlaufstelle
dann kommt die Forum Suche
und dann der neue Thread im Forum
die vielen Optionen und Parameter haben mich a bisserl erschreckt

wie du siehst, bin ich aber treu und geh auch nicht fremd (crossposting)

[clag]

Hallo Leutz,

damit wolte ich den Bereich "z" sortieren nach spalte 2 absteigend
aber irgend wie passiert nichts auch keine Fehlermeldung der Code
füllt den Bereich "z" erfolgreich mit Daten nur wird nix sortiert
was mach ich da falsch

Code: Alles auswählen

Dim SortProps(2) As new com.sun.star.beans.PropertyValue
Dim SortFeld(1) As new com.sun.star.table.TableSortField

   SortFeld(0).Field = 0
   SortFeld(0).IsAscending = False
   SortFeld(0).FieldType =	com.sun.star.util.SortFieldType.AUTOMATIC 'Typ wird erkannt
'   SortFeld(1).Field = 0
'   SortFeld(1).IsAscending = True
   SortFeld(1).FieldType = com.sun.star.util.SortFieldType.ALPHANUMERIC ' Sortierung von Text
   SortFeld(1).FieldType = com.sun.star.util.SortFieldType.NUMERIC ' Sortierung von Zahlen

   SortProps(0).Name = "SortFields"
   SortProps(0).Value = SortFeld(1)
   SortProps(1).Name = "SortColumns"
   SortProps(1).Value = False
   SortProps(2).Name = "ContainsHeader"
   SortProps(2).Value = true

 z.Sort(SortProps())

pleeease

[clag]

Hallo Leutz,

bin selbst über den Fehler gestolpert

SortProps(0).Value = SortFeld(1)

ohne die 1 geht jetzt viiieeellll besser