OpenOffice.info

Hallo Karolus,

auch dir allerbesten Dank
wie es nicht anders zu erwarten war, ist dein Vorschlag natürlich wieder kürzer :lol:

...
mycell.formulalocal = format( now , "hh:mm:ss" )
...

Hallo
[code]...
mycell.formulalocal = format( now , "hh:mm:ss" )
...[/code]

Karo

Hallo Axel,

allerbesten Dank für deine detaillierte Erklärung, so wird das Verhalten auch mir verständlich,
dann werde ich das gerade dazugelernte gleich mal austesten :D

myCell.Value = TIMEVALUE(TIME)

Dim locale As New com.sun.star.lang.Locale
nFormat = thisComponent.NumberFormats.queryKey("HH:MM:SS", locale, false)
if nFormat < 0 then 
 nFormat = thisComponent.NumberFormats.addNew("HH:MM:SS", locale)
endif

myCell.NumberFormat = nFormat

Hallo clag,

[quote="clag"]in einem Makro möchte ich die Systemzeit mit dem "TIME" in eine Zelle schreiben
allerdings gelingt mir das nur als string [/quote]
Ja, denn TIME liefert ja auch einen String zurück.
Es gibt allerdings TIMEVALUE(), welche aus einem String einen Zeitwert berechnet. Diesen Wert muss man .Value der Zelle zuweisen
[code]myCell.Value = TIMEVALUE(TIME)[/code]

Nun muss die Zelle natürlich noch im Zeitformat formatiert werden.
[code]
Dim locale As New com.sun.star.lang.Locale
nFormat = thisComponent.NumberFormats.queryKey("HH:MM:SS", locale, false)
if nFormat < 0 then
nFormat = thisComponent.NumberFormats.addNew("HH:MM:SS", locale)
endif

myCell.NumberFormat = nFormat
[/code]

viele Grüße

Axel

myCell.string = TIME

myCell.date = TIME 

Hallo Kenner und Könner,

in einem Makro möchte ich die Systemzeit mit dem "TIME" in eine Zelle schreiben

allerdings gelingt mir das nur als string mit
[code]myCell.string = TIME[/code]

mit diesem Code bekomme ich eine Fehlermeldung
[code]myCell.date = TIME [/code]

wie erreiche ich, dass eine echte Zeit in die Zelle geschrieben wird ?