OpenOffice.info

Sub heuteoeffnen
odoc = thisComponent
osheet = odoc.sheets(0) '1.Tabellenblatt
ersterwert = osheet.getcellbyposition(0,0).value 'Datumswert von A1
zeilenindex = fix(now) - ersterwert
'msgbox zeilenindex
odoc.CurrentController.Select(osheet.getcellbyposition(0,zeilenindex))
End Sub

Hallo
Mit der bedingten Formatierung lassen sich Zellen nur hervorheben (über die Formatierung) - aber nicht selektieren.

Falls die Datumswerte fortlaufend aufsteigend in Spalte A eingetragen sind (ohne Lücken und Datumssprünge), funktioniert folgendes Makro:
[code]Sub heuteoeffnen
odoc = thisComponent
osheet = odoc.sheets(0) '1.Tabellenblatt
ersterwert = osheet.getcellbyposition(0,0).value 'Datumswert von A1
zeilenindex = fix(now) - ersterwert
'msgbox zeilenindex
odoc.CurrentController.Select(osheet.getcellbyposition(0,zeilenindex))
End Sub[/code]

Dieses Makro müsstest du unter ->Extras->Anpassen->Ereignisse
mit dem Ereignis "Dokument öffnen" verbinden.

Gruß Karo

Hallo Aki,
mit "Format" ---->"Bedingte Formatierung" sollte eine "Zellvorlage" erstellt und mit "BedingteFormatierung" auf diese zugegriffen
werden. Sehr gute Beispiele erhälst Du auf dieser Seite :
[url]http://www.ooowiki.de/CalcFormatBedingt[/url]
Die Formel in der "bedingten Formatierung" lautet : [b]=HEUTE() [/b]

Vorher eine "Zellvorlage" wie beschrieben erstellen.


mfg
Gert