OpenOffice.info

=VERKETTEN(E2;A2)

Guten Morgen Bergwichtel,

es ist leider nicht möglich mehr als 3 Sortierfelder anzugeben. :(
Lese dazu bitte den [url=http://de.openoffice.org/servlets/ReadMsg?list=users&msgNo=56631]Mail-reader[/url].

[quote="Mail-Reader"]Leider nein, die Sortierung ist wirklich auf 3 Felder, die Filterung auf
8 Kriterien beschränkt. Fehler von mir.[/quote]

Ich werde das mal an Michael weitergeben, vielleicht nimmt er den Hinweis in seine Internetseite mit auf.

Trotzdem schönes Wochenende.

Jürgen


[b]Edit:[/b] Ich habe mir mal ein Workaround ausgedacht.
Kriterium [b]F[/b]asc wird ja als letztes sortiert.
Jetzt habe ich in Zelle "G2" [b]F[/b]asc und [b]R[/b]asc mit folgender Formel verkettet:
[code]=VERKETTEN(E2;A2)[/code] und die Formel für die anderen Zeilen nach unten gezogen.

Anstelle von [b]F[/b]asc habe ich nun die Hilfsspalte [b]F[/b]asc & [b]R[/b]asc sortieren lassen und siehe da, Anton und Emil sind in der richtigen Reihenfolge. :D
Das funktioniert aber nur wenn [b]R[/b]asc im Einerbereich liegt. Also grösser als 9 geht nicht!

Die Hilfsspalte kann man z.B. auch ausblenden.
Schau es Dir einfach mal an.

Hilft das weiter?

Sortieren_Neu.zip -> Sortieren_Neu.ods

[quote="turtle47"]Bei der Sortierlogik blicke ich ehrlich gesagt nicht so ganz durch. :oops:[/quote]
Ok, mit einfachen Worten.
Sortiere zuerst nach Spalte G absteigend, dann nach Spalte A absteigend, dann Spalte F aufsteigend und dann nach Spalte R aufsteigend.

[quote][code]/color[/code]Was sollte das denn in Deinem Code?[/quote]
Ich wollte erst innerhalb des code-Blockes die Zeilen, die jetzt von 2 remarks umschlossen sind, farbig hervorheben. Bei der Vorschau habe ich gesehen, das dies nicht geht und das Stück UBB-Code übersehen mit rauszunehmen.


[quote]Ich habe mal Deinen Code ausprobiert und da stimmte ja gar nichts mit dem von Dir aufgezeigten Ergebnis überein.[/quote]
Die Tabelle ist nur ein Teil von der wirklichen Tabelle. Evtl. habe ich die Spalten falsch im Beispiel gesetzt. Jedenfalls sind die beiden Tabellenausschnitte copy und paste vor und nach dem Lauf des Makros (nur ein paar Spalten dabei entfernt und Emil mit Anton vertauscht). Muß ich morgen meinen geposteten Code testen.

[quote]Das Makro habe ich mal nach meine Vorstellungen mal angepasst und die Sortierung stimmt schon wesentlich besser
mit dem erwarteten Ergebnis überein.

Bis auf
5 -> Emil
und
1 -> Anton
ist alles OK.[/quote]
Genau. Da liegt der Haken. Die ersten 3 Kritierien werden beachtet, das vierte Kriterium nicht.
Übrigens, wirft der Debugger keine Fehlermeldung aus, wenn ich [b]Dim SortFeld([color=red]4[/color]) As new com.sun.star.table.TableSortField[/b] auf 3 setze, ohne [b]SortFeld([color=blue]3[/color]).*[/b] zu entfernen. Setze ich es hingegen auf 2, kommt die entsprechende Fehlermeldung.
Daraus ziehe ich die Befürchtung, das basic nicht mehr als 3 Kriterien akzeptiert.

[quote]Entweder stimmt der Code immer noch nicht, oder das von Dir aufgezeigte Endergebnis ist falsch. Was ich aber nicht glaube.[/quote]
Oder, was ich fast glaube, das nach dieser Form nur nach 3 Kriterien sortiert werden können.

[quote]Schau Dir die angehängte Tabelle einfach mal an.[/quote]
Mache ich morgen, wenn ich mehr Zeit habe. Ich melde mich dann wieder.

/color

Hi Bergwichtel,

Bei der Sortierlogik blicke ich ehrlich gesagt nicht so ganz durch. :oops:
Da war ich in der Schule bestimmt krank und könnte ein wenig Nachhilfe gebrauchen.

[code]/color[/code]Was sollte das denn in Deinem Code?

Ich habe mal Deinen Code ausprobiert und da stimmte ja gar nichts mit dem von Dir aufgezeigten Ergebnis überein.
Das Makro habe ich mal nach meine Vorstellungen mal angepasst und die Sortierung stimmt schon wesentlich besser
mit dem erwarteten Ergebnis überein.

Bis auf
5 -> Emil
und
1 -> Anton
ist alles OK.

Entweder stimmt der Code immer noch nicht, oder das von Dir aufgezeigte Endergebnis ist falsch. Was ich aber nicht glaube.
Denn Du bist da mehr der Experte. Schau Dir die angehängte Tabelle einfach mal an.

Sortieren.zip -> Sortieren.ods
[attachment=0]Sortieren.zip[/attachment]
Jürgen

Hi Jürgen,

tja, von der Seite habe ich mein bischen Code. Aber damit funktioniert die Erweiterung auf mehr als 3 Kriterien leider nicht.

Hallo Bergwichtel,

schau Dir mal diese [url=http://www.dannenhoefer.de/faqstarbasic/WiekannmanZellbereichesortieren..html#Zweig177]Seite[/url] mal an.
Dort ist ganz unten angegeben wie man über zwei Felder sortiert. Das könnte man sicherlich auch auf vier Felder ausbauen.
Der Code weiter oben ist natürlich auch zu beachten. Habe es selber noch nicht ausprobiert weil die Arbeit ruft.

Viel Erfolg.

Jürgen

R	N	           V	  A	 F	 G
1	Anton			280	134	3	414
2	Bärbel	     289	142	2	431
3	Cäsar			280	134	1	414
4	Dora			 269	145	0	414
5	Emil			 280	134	3	414

R	N	           V	  A	 F	 G
2	Bärbel	     289	142	2	431
4	Dora			 269	145	0	414
3	Cäsar			280	134	1	414
1	Anton			280	134	3	414
5	Emil			 280	134	3	414

Sub sortErgebnis
   Dim SortFeld(4) As new com.sun.star.table.TableSortField
   Dim SortProps(2) As new com.sun.star.beans.PropertyValue
   
   oDatei = ThisComponent
   oSheet = oDatei.Sheets.getByName("testtab")
   oBereich = oSheet.getCellRangeByName("Bereich")

    SortFeld(0).Field = 6
    SortFeld(0).IsAscending = false
    SortFeld(0).FieldType = com.sun.star.util.SortFieldType.NUMERIC
    SortFeld(1).Field = 4
    SortFeld(1).IsAscending = false
    SortFeld(1).FieldType = com.sun.star.util.SortFieldType.NUMERIC
    SortFeld(2).Field = 5
    SortFeld(2).IsAscending = true
    SortFeld(2).FieldType = com.sun.star.util.SortFieldType.NUMERIC

' begin ignorierter Teil
    SortFeld(3).Field = 1
    SortFeld(3).IsAscending = true
    SortFeld(3).FieldType = com.sun.star.util.SortFieldType.NUMERIC[/color]
' end ignorierter Teil

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

Hi,

Ich habe das Problem, das ich einen zusammenhängenden Bereich nach 4 Kritierien sortieren muß. Allerdings ignoriert calc mein 4. Kriterium.

Folgende Minimaltabelle:
[code]
R N V A F G
1 Anton 280 134 3 414
2 Bärbel 289 142 2 431
3 Cäsar 280 134 1 414
4 Dora 269 145 0 414
5 Emil 280 134 3 414
[/code]
Diese soll nach folgender Reihenfolge sortiert werden: [b]G[/b]desc [b]A[/b]desc [b]F[/b]asc [b]R[/b]asc
Das Ergebnis muß also so aussehen:
[code]
R N V A F G
2 Bärbel 289 142 2 431
4 Dora 269 145 0 414
3 Cäsar 280 134 1 414
1 Anton 280 134 3 414
5 Emil 280 134 3 414
[/code]
Mein derzeitiger Code sieht so aus:
[code]
Sub sortErgebnis
Dim SortFeld(4) As new com.sun.star.table.TableSortField
Dim SortProps(2) As new com.sun.star.beans.PropertyValue

oDatei = ThisComponent
oSheet = oDatei.Sheets.getByName("testtab")
oBereich = oSheet.getCellRangeByName("Bereich")

SortFeld(0).Field = 6
SortFeld(0).IsAscending = false
SortFeld(0).FieldType = com.sun.star.util.SortFieldType.NUMERIC
SortFeld(1).Field = 4
SortFeld(1).IsAscending = false
SortFeld(1).FieldType = com.sun.star.util.SortFieldType.NUMERIC
SortFeld(2).Field = 5
SortFeld(2).IsAscending = true
SortFeld(2).FieldType = com.sun.star.util.SortFieldType.NUMERIC

' begin ignorierter Teil
SortFeld(3).Field = 1
SortFeld(3).IsAscending = true
SortFeld(3).FieldType = com.sun.star.util.SortFieldType.NUMERIC[/color]
' end ignorierter Teil

SortProps(0).Name = "SortFields"
SortProps(0).Value = SortFeld()
SortProps(1).Name = "SortColumns"
SortProps(1).Value = False
SortProps(2).Name = "ContainsHeader"
SortProps(2).Value = true
oBereich.Sort(SortProps())
End Sub
[/code]
Der markierte Bereich wird allerdings von calc ignoriert.
Wie bekomme ich es hin, daß das Makro nach allen 4 Kriterien sortiert bzw. wo liegt der Fehler in meinem Code?

Da ich erst seit ein paar Tagen mich mit Makros in OOo beschäftige und deutschsprachige Informationen dazu doch relativ rar sind, hätte ich noch eine
Zusatzfrage:
Wie kann ich die Spaltenüberschrift [b]SortFeld(?).Field[/b] angeben?
Try&Error mit SortFeld(?).FieldByName, SortFeld(?).FieldByTitle etc. scheiterten. ;(

Gruß vom Berge