Re: Problem mit Makro Spalte nach Datum zu sortieren
Verfasst: Mo, 27.01.2014 16:54
Hi,
Ich versuche zu erklären:
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
vor den anderen steht ein Hochkomma, was einen Kommentar, aber keinen ausführbaren Code erzeugt.
Also ändere das in
Jetzt zum Sortierbereich:
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 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
Genau natürlich nicht, man kann viel falsch machen, aber der Code funktioniert.Svenn hat geschrieben:Hat jemand eine Idee, woran das liegen könnte?
Ich versuche zu erklären:
Code: Alles auswählen
Dim aSortFields(2) as New com.sun.star.util.SortFieldaSortFields(0)
aSortFields(1)
aSortFields(2)
verwendest aber nur eines
Code: Alles auswählen
aSortFields(0).Field = 7
aSortFields(0).SortAscending = TRUE Also ändere das in
Code: Alles auswählen
Dim aSortFields(0) as New com.sun.star.util.SortFieldCode: Alles auswählen
oRange = oSheet.getCellRangeByPosition(1,9,10,88)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 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