Speicherdatum in Zelle X schreiben bei Dateispeicherung

[quickeli]

Verwende im Moment OOo Version 3.2.1 und habe ein kleines Problem. Möchte bei einer Datei immer wenn ich Sie abspeichere dass dann und nur dann das aktuelle Datum und Uhrzeit oder nur das Datum in eine bestimmte Zelle X eingefügt wird. Ich habe hier im Forum gesucht incl. Makros und habe keine Version die für OOo calc Version 3.2.1 klappt gefunden. Also nicht bei Aenderung oder öffnen der Datei oder sondern einzig und alleine beim Speichern der Datei. Besten dank


Moderation,4: verschoben in BASIC Unterbereich

[komma4]

Willkommen im Forum.


Verbinde folgendes Makro mit dem Extras>Anpassen>Ereignis "Dokument sichern"
(nach Anpassen des Tabellennamens und der Zelle, wo es hin soll)

Code: Alles auswählen

Sub de47792
' 2011-04-04

ThisComponent.Sheets().getByName( "Tabelle1" ).getCellRangeByName( "D8" ).setFormula( Now )

End Sub

Das war es?

[Karolus]

Hallo
Speichere folgendes in einem (neuen?) Modul in der Standardbibliothek des Dokuments:

Code: Alles auswählen

Sub zeitstempel
thiscomponent.sheets(0).getcellbyposition(0,2).formula =  format(now(),"dd.mmmm.yyyy hh:mm:ss")
'.sheets(0) ist das erste Blatt, ..getcellbyposition(0,2) ist die Zelle A3
End Sub

Verknüpfe es mit dem Ereignis "Dokument wird geschlossen" via → Extras → Anpassen →'Ereignisse'...
( ! Achte dabei auf den Speicherort unten : "DeinDokumentname.ods" ! )

Gruß Karo

[quickeli]

Habe zuerst mal die erste Antwort von komma 4 versucht. Läuft einwandfrei und ohne Probleme, genau das was ich gesucht habe. besten dank. Wirklich absolut super und dies in dieser kurzen Zeit.

[quickeli]

Die vorgeschlagene Lösung von Carolus wurde auch getestet und für gut befunden. Auch besten dank für die Antwort. Also beide vorgeschlagenen Lösungen sind ok, brauchbar und ohne Probleme zu handhaben. In dem Sinn besten Dank an komma4 und Karolos. Problem gelöst. Ende -----