Problem mit Makro Spalte nach Datum zu sortieren

[F3K Total]

Hi,

Hat jemand eine Idee, woran das liegen könnte?

Genau natürlich nicht, man kann viel falsch machen, aber der Code funktioniert.
Ich versuche zu erklären:

Code: Alles auswählen

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

Hier ist der erste Fehler, du definierst die aSortFields(2), das bedeutet, du hast drei Stück:
aSortFields(0)
aSortFields(1)
aSortFields(2)
verwendest aber nur eines

Code: Alles auswählen

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

vor den anderen steht ein Hochkomma, was einen Kommentar, aber keinen ausführbaren Code erzeugt.
Also ändere das in

Code: Alles auswählen

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

Jetzt zum Sortierbereich:

Code: Alles auswählen

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

bedeutet:
1 = Spalte B
9 = Zeile 10
10 = Spalte K
88 = Zeile 89
Du hast also den Sortierbereich B10:K89 definiert
Und in diesem willst du

Code: Alles auswählen

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

nach 7 = 8. Spalte des Bereiches B10:K89 = Spalte i sortieren.
Wenn die Geburtstage in Spalte i 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

[F3K Total]

Ja, mit der bedingten Formatierung:
z.B. Formel:

Code: Alles auswählen

ISTGERADE(ZEILE())

Gruß R