Makro aktuelles Datum

Das Tabellenkalkulationsprogramm

Moderator: Moderatoren

s-und-s
Beiträge: 2
Registriert: Mi, 15.02.2006 15:08

Beitrag von s-und-s »

Hi,
ich glaub ich kann mir die Antwort selber geben.
Mit folgendem Code setze ich den Cursor auf die Zelle mit dem aktiven Datum.

Code: Alles auswählen

ThisComponent.CurrentController.Select((ThisComponent.Sheets(Month(Now)-1).getCellByPosition(0,Day(Now)))
Berechnet wird das Sprungziel über die Funktion Month(Now) und Day(Now).
Weil die Sheet-Index bei 0 beginnt, muß vom Monat noch 1 subtrahiert werden.

Wenn der Monatsbeginn nicht in Zeile 2 beginnt, dann muß man halt noch einen Offset hinzuaddieren. Dasselbe gilt, wenn man andere Spalten als Spalte A wünscht.

Grüße,
Josef Sterk
Antworten