Spalten nach Zeilen sortieren

[Haddock]

Hallo,

Ich such eine Lösung wie ich die komplette Spalten nach einzelnen Zeilen sortieren kann.

Person A Person B Person C

Thema A 1 2 3
Thema B 2 3 1
Thema C 3 1 2

ich möchte also die Personen absteigend nach den Werten eines Themas sortieren. Optimal wäre es, wenn ich die Themen als Buttons anlegen könnte, so dass ich nur auf "Thema A" klicken müsste, und die Spalten würden sich entsprechen sortieren.

Kann mir dabei jemand helfen?

Vielen Dank!
Haddock

[Karolus]

Hallo
Kopiere folgenden Code nach->Extras->Makros->Makros verwalten->OOobasic 'dein dokument'-'Standard'-'Modul1' (ggfalls erstellen über 'neu')

Code: Alles auswählen

Sub ThemaA
sortieren(2) 'oder die richtige zeilennr für Thema A
end sub

Sub ThemaB
sortieren(3)
end sub

Sub ThemaC
sortieren(4)
end sub

sub sortieren(zeile)
'noch leer, wird mit Makroaufzeichnung gefüllt
end sub

Jetzt startest du ->Extras->Makros->Makro aufzeichnen.
Dann führst du exemplarisch eine komplette Sortierroutine mit 1.Sortierbereich markieren 2.->Daten->Sortieren mit allen relevanten Einstellungen. (Optionen auf Spaltensortierung,absteigend sortieren. Bereich enthält Zeilenköpfe)
Wenn alles richtig ist schliest du die Makroauzeichnung ab, und wählst die 'sub sortieren' als Speicherort. in diesem Makro änderst du über 'bearbeiten' den Eintrag der Zeilennr in 'zeile', und die Kopfzeile 'sub sortieren' in 'sub sortieren(zeile)'
Zu guter letzt baust du dir noch 3 Schaltflächen (->Ansicht->Symbolleisten->FormularSteuerelemente) in deine Tabelle ein die du mit den Subs ThemaA bis ThemaC verknüpfst.

Gruß Karo