Aktuelles Datum in OpenOffice mit Macro und short-cut

Benno · User Anmeldungsdatum: 09.11.2004 Beiträge: 18

Makro würde so aussehen

Sub AktuellesDatum()

Dim Datumswert as string
Datumswert=date()
ThisComponent.CurrentSelection.FormulaLocal=Datumswert

End Sub
So und dann noch unter Optionen->Anpassen->Tastatur->unten OpenOfficeStandardmodul das Makro AktuellesDatum suchen und einer Taste z.Beispiel STR+I zuordnen und fertig.
Bei Excel ist das übrigens mit Str+(.) realisiert.
Sollte man eigentlich standardmäßig bei Openoffice auch einfügen.
Na ja wir können nun mit
Str+I in einer angewählten Zelle von Calc das aktuelle Datum setzen.
Das müßte leicht zu demonstrieren sein.
Statt date() kann man auch time nehmen und die Zeit setzen lassen.