Seite 1 von 1

Re: wie Änderungsdatum einfügen?

Verfasst: Do 24. Apr 2014, 13:18
von Hazel
Hallo Theophilus

Versuche doch mal

Code: Alles auswählen

=HEUTE()
als Zelleintrag.

Grüße aus Franken
Hazel

Re: wie Änderungsdatum einfügen?

Verfasst: Do 24. Apr 2014, 18:12
von lorbass
Im OpenOffice.info-Forum habe ich vor einiger Zeit ein Kochrezept Mit der HEUTE()-Funktion in Calc erzeugtes Datum fixieren geschrieben.

Gruß
lorbass

Re: wie Änderungsdatum einfügen?

Verfasst: Fr 25. Apr 2014, 09:11
von Herb
Ich werf mal was Simples ein:
=heute() Zelle kopieren,
auf Ziel-Zelle gehen, rechts klick > Inhalte einfügen > Zahlen markieren, Formeln deaktivieren, ok,
fertig.

Re: wie Änderungsdatum einfügen?

Verfasst: Sa 26. Apr 2014, 15:52
von lessger
Du kannst Dir selber eine StarBasic Funktion schreiben

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
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.

Gruß
Gerhard

Re: wie Änderungsdatum einfügen?

Verfasst: Di 27. Mai 2014, 15:50
von Mau
lessger hat geschrieben:Du kannst Dir selber eine StarBasic Funktion schreiben:

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
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.
Lieber Gerhard,
könnte man diese Funktion auch in Writer verwenden, um in eine Datei das aktuelle Datum als Fixwert einzufügen?

Re: [gelöst] wie Änderungsdatum einfügen?

Verfasst: Di 27. Mai 2014, 16:09
von karolus
Lieber Mau!

In Writer gibts dafür →Einfügen→Feldbefehl→Datum

Karolus

Re: [gelöst] wie Änderungsdatum einfügen?

Verfasst: Di 27. Mai 2014, 17:29
von Mau
Lieber karolus,
karolus hat geschrieben:In Writer gibts dafür →Einfügen→Feldbefehl→Datum
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.

Gruß,
Mau

Re: [gelöst] wie Änderungsdatum einfügen?

Verfasst: Sa 14. Feb 2015, 22:32
von Manne
Hallo an alle

Gibt es auch einen Lösungsweg, um ein Datum - Letzte Änderung, für mehrere Tabellenseiten einzufügen ?
Testete diesen Weg mit =ChangedOn() und funktioniert prima, jedoch ausgerichtet für eine Seite, da sonst überall das selbe Datum angezeigt wird.

Grüße