Re: wie Änderungsdatum einfügen?
Verfasst: Do 24. Apr 2014, 13:18
Hallo Theophilus
Versuche doch mal als Zelleintrag.
Grüße aus Franken
Hazel
Versuche doch mal
Code: Alles auswählen
=HEUTE()
Grüße aus Franken
Hazel
Das Online-Forum rund um das LibreOffice Softwarepaket
https://www.libreoffice-forum.de/
Code: Alles auswählen
=HEUTE()
Code: Alles auswählen
Function ChangedOn() As Date
Dim oSheet As Object
Dim ChgDate As Variant
oSheet = ThisComponent()
ChgDate = oSheet.DocumentProperties.ModificationDate
' ChgDate ist leer, wenn das Dokument noch nie gespeichert wurde. In diesem Fall CreationDate nutzen
If ChgDate.Year = 0 Then
ChgDate = oSheet.DocumentProperties.CreationDate
End If
ChangedOn = DateSerial(ChgDate.Year, ChgDate.Month, ChgDate.Day)
End Function
Lieber Gerhard,lessger hat geschrieben:Du kannst Dir selber eine StarBasic Funktion schreiben:
Diese Funktion kann aus einer Zelle mit =ChangedOn() aufgerufen werden und gibt das Modifikationsdatum zurück, oder falls es das noch nicht gibt, das CreationDate.Code: Alles auswählen
Function ChangedOn() As Date Dim oSheet As Object Dim ChgDate As Variant oSheet = ThisComponent() ChgDate = oSheet.DocumentProperties.ModificationDate ' ChgDate ist leer, wenn das Dokument noch nie gespeichert wurde. In diesem Fall CreationDate nutzen If ChgDate.Year = 0 Then ChgDate = oSheet.DocumentProperties.CreationDate End If ChangedOn = DateSerial(ChgDate.Year, ChgDate.Month, ChgDate.Day) End Function
das weiß ich wohl und benutze es derzeit auch (noch); das erfordert aber - vor allem, wenn man ein anderes als das Standardformat TT.MM.JJ verwendet - mehrere Tasteneingaben bzw. Mausklicks. Ich möchte das gerne mit einer einzigen Taste(nkombination) erledigen können.karolus hat geschrieben:In Writer gibts dafür →Einfügen→Feldbefehl→Datum