Aktuelles Datum und Uhrzeit in Zelle in Calc schreiben

[Reginald]

Hallo zusammen,

kann mir jemand mit ein paar Zeilen Code behilflich sein?

Ich möchte mit einem Tastaturbefehl in Calc ein Makro starten, das mir in die aktuelle Zelle Datum und Uhrziet (DD.MM.JJ HH:MM) schreibt und dann den Cursor eine Zelle nach rechts setzt.

Ich habe eine Calc-Datei, wo ich immer wieder Notizen machen muß, die mit Datum und Uhrzeit versehen sind. Ein bißchen wie eine Datenbank. - Und es soll halt schnell gehen ...

Danke!!

Grüße,
Reginald

[DPunch]

Aloha

Das sieht ungefähr so aus

Code: Alles auswählen

	oDoc = thisComponent
	oSheet = oDoc.CurrentController.ActiveSheet
	oCell = oDoc.CurrentSelection(0)
	If NOT oCell.supportsService("com.sun.star.sheet.SheetCell") Then
		MsgBox "Bitte eine einzelne Zelle selektieren",48,"Hinweis"
		Exit Sub
	End If
	oCell.String = Now
	oCursor = oSheet.createCursorByRange(oCell)
	oCursor.gotoNext
	oDoc.CurrentController.Select(oCursor)

[Reginald]

Hey, DPunch!

Das war schnell!!! - Und funktioniert

Er schreibt es allerdings als Text in die Zelle, also so '21.09.11 12:56:32

Damit kann ich die Zelle nicht mehr passend (also TT.MM.JJ HH:MM) vorformatieren.

Kann man das noch im Code ändern?

Grüße,
Reginald

[komma4]

Ich möchte mit einem Tastaturbefehl in Calc ein Makro starten

Dann sieh' Dir mal meine Extension an... Makro schreiben unnötig, das gewünschte Format kannst Du im Code anpassen.

Für eine Formatierung brauchst Du den NumberFormat Code

[Reginald]

Hi,

hab's dann einfach weiter als text verwendet, und das funktioniert gut.

Wenn du noch eine andere Lösung als Datum findest, lass mich wissen. Wäre für mich auch besser.
(Ist wahrscheinlich eh nur irgendwo eine winzige Änderung...)


Grüße
Reginald

[komma4]

Es reicht die Änderung der Zeile

Code: Alles auswählen

   oCell.String = Now

in

Code: Alles auswählen

   oCell.Formula = Now

(wenn man zuvor oder später ein Zeit-/Datums-Zellformat einstellt)

[Reginald]

Cool. Funzt
Danke, Reginald