OpenOffice.info

ISTGERADE(ZEILE())

Ja, mit der bedingten Formatierung:
z.B. Formel:
[code]ISTGERADE(ZEILE())[/code]
Gruß R

Dim aSortFields(2) as New com.sun.star.util.SortField

   aSortFields(0).Field = 7
   aSortFields(0).SortAscending = TRUE   

Dim aSortFields(0) as New com.sun.star.util.SortField

 oRange = oSheet.getCellRangeByPosition(1,9,10,88)

aSortFields(0).Field = 7
aSortFields(0).SortAscending = TRUE   

Hi,
[quote="Svenn"]Hat jemand eine Idee, woran das liegen könnte?
[/quote]Genau natürlich nicht, man kann viel falsch machen, aber der Code funktioniert.
Ich versuche zu erklären:
[code]Dim aSortFields(2) as New com.sun.star.util.SortField[/code]
Hier ist der erste Fehler, du definierst die aSortFields([color=#FF0000][b]2[/b][/color]), das bedeutet, du hast drei Stück:
aSortFields([color=#FF0000][b]0[/b][/color])
aSortFields([color=#FF0000][b]1[/b][/color])
aSortFields([color=#FF0000][b]2[/b][/color])
verwendest aber nur eines
[code] aSortFields(0).Field = 7
aSortFields(0).SortAscending = TRUE [/code]
vor den anderen steht ein Hochkomma, was einen Kommentar, aber keinen ausführbaren Code erzeugt.
Also ändere das in
[code]Dim aSortFields(0) as New com.sun.star.util.SortField[/code]
Jetzt zum Sortierbereich:
[code] oRange = oSheet.getCellRangeByPosition(1,9,10,88)[/code]bedeutet:
1 = Spalte B
9 = Zeile 10
10 = Spalte K
88 = Zeile 89
Du hast also den Sortierbereich [color=#FF0000]B10:K89[/color] definiert
Und in diesem willst du
[code]aSortFields(0).Field = 7
aSortFields(0).SortAscending = TRUE [/code] nach [color=#FF0000]7 = 8. Spalte des Bereiches B10:K89 = [size=150]Spalte i[/size][/color] sortieren.
Wenn die Geburtstage in [size=150]Spalte i[/size] stehen, und der Sortierbereich stimmt, da melde dich noch einmal. Ansonsten solltest Du den Code jetzt auf deine Bedürfnisse anpassen können.
Unten findest Du ein Beispiel.
Gruß R