Sortierlisteneintrag für ca 5000 Zeilen

[artun]

Hallo,
ich habe eine Tabelle mit LO5x erstellt. Ich habe 13 Spalten (A bis M) und ca. 4200 Zeilen, jede Zeile ist eine eigenständige Datensatz. Ich muss die Zeilen auf- oder absteigend sortieren. Jede Zeile enthält nur Zahlen (Temperaturwerte: 1 bis 70). Gebe ich den Befehl zeilenweise Sortieren dann wird nur die erste Zeile (A1:M1) sortiert. Ich habe ein bisschen recherchiert und irgendwo gelesen, was man dafür zuerst einen Sortierlisteneintrag machen muss, was ich aber leider nicht machen konnte. Wie macht man das als Formel für mehrere Zeilen? Oder gibt es noch andere Lösungen? Vielen Dank!
Artun

[mikele]

Hallo,
muss du jede Zeile für sich sortieren?

[artun]

hi,
ja, jede Zeile für sich selbst.

[mikele]

Hallo,
dann wird es das sinnvollste, ein Makro zu schreiben.
Alternativ müsste jede Zeile einzeln gewählt und sortiert werden - das macht keinen Spaß.
Mal auf die Schnelle (mit Hilfe von Andrew Pitonyak, Listing 430) zusammengestrickt, sortiert dir folgendes Makro die ersten 5000 Zeilen auf Tabelle1 (zeilenweise) nach aufsteigenden Werten.

Code: Alles auswählen

Sub zeilen_sortieren
	Dim oSheet as object
	Dim oRange as object
	Dim oSortFields(0) as new com.sun.star.util.SortField
	Dim oSortDesc(1) as new com.sun.star.beans.PropertyValue
	oSheet = ThisComponent.Sheets(0)

	REM Sortiert wird über das erste Feld im Bereich.
	oSortFields(0).Field = 0
	oSortFields(0).SortAscending =true 'aufsteigende Werte
	
	REM Die zu nutzenden Sortierfelder.
	oSortDesc(0).Name = "SortFields"
	oSortDesc(0).Value = oSortFields()
	oSortDesc(1).Name = "IsSortColumns" 'Spalten werden sortiert
	oSortDesc(1).Value = True

	REM Der zu sortierende Bereich.

	for i= 0 to 5000
		oRange = oSheet.getCellRangeByPosition(0,i,12,i)
		REM Nun wird der Bereich sortiert!
		oRange.Sort(oSortDesc())
	next
End Sub

[Pit Zyclade]

Darf ich noch mal nachfragen
1. was Du und
2. in welcher Richtung Du sortieren möchtest?

Denn das was Du mit Sortierlisten ansprichst bezieht sich nicht primär auf die Richtung, sondern auf die Art dr Sortierung.

Wenn Du also in Spalten über die 5000 Datensätze (in Zeilen) sortieren möchtest, mußt Du nur
den Datensatz = Zeile angeben nach selchem die Daten, deren Beziehung in der Spalte erhalten bleibt, sortieren möchtest:
Deine Tabelle markieren und dann nach
Daten->sortieren->Richtung von links nach rechts ankreuzen...

[artun]

Hallo,
es hat zwar lange gedauert und bisschen nerven gekostet, am Ende hat es aber geklappt und zwar mit Makro; mit einfachen Sortierungsbefehl von links nach rechts wird immer nur die erste Zeile sortiert. Mit 68 habe ich wieder mal was schönes gelernt. (In einem Buch mit ca. 600 Seiten -Excxx Makros- ist so ein Makro nicht zu finden.)
Herzlichen vielen Dank an Mikele und Pit Zyclade!
Grüsse

[mikele]

Hallo,

nur so zum Spaß das Ganze mal in Python (läuft bei 5000 Zeilen erheblich schneller):

Code: Alles auswählen

def zeile_sortieren():
    oDoc = XSCRIPTCONTEXT.getDocument()
    oSheet = oDoc.Sheets.getByIndex(0)
    oCells = oSheet.getCellRangeByPosition(0,0,12,5000)
    sDaten=list(oCells.getDataArray())
    for n in range(len(sDaten)):
        sDaten[n]=tuple(sorted(list(sDaten[n])))
    oCells.setDataArray(tuple(sDaten))

Die Python-Profis kennen vielleicht noch eine optimalere Variante.

[artun]

Hallo,
wie kann ich denn diese "pythonartige Sätze" ganz konkret bei meinen Tabellen benutzen? Als Script oder als Makro oder....? wo und als was muss ich denn diese Zeilen speichern?
Ich habe/benutze xubuntu 16.04 und u.a. LO5x.
Grüße

[mikele]

Hallo,
du speicherst den Code in einer .py-(Text)datei (z. B. sortieren.py). Diese Datei legst du in deinem home-Verzeichis (müsste das gleiche sein, wie bei mir unter Ubuntu)
/home/...deinName.../.config/libreoffice/4/user/Scripts/python
(ggf. musst du /Scripts/python noch anlegen).
Anschließend kannst du es als Makro ausführen: ->Extras->Makros->Ausführen und ist dort in der Bibliothek "Meine Makros" zu finden.
Falls das nicht klappt (und unter ->Extras->Makros->Makros verwalten kein Python zur Verfügung steht) muss eventuell der libreoffice-script-provider-python nachinstalliert werden.
Ich hoffe, du kommst mit diesem Gewurschtel zurecht ...

[artun]

Hallo,
danke für die schnelle Antwort. Das Ganze aber kann ich erst am Montag versuchen zu testen. Ich werd' mich dann mit Sicherheit wieder melden.
Grüße