Zeitstempel per Makro abhängig von Änderungen

[WillWissen]

Hallo liebe Helfer,

um meiner mittlerweile (fast) fertigen Datei den letzten Schliff zu geben, benötige ich noch ein Makro, welches mir einen Zeitstempel auf einem Tabellenblatt einsetzt.

Genaue Aufgabenstellung:

Meine Datei besteht aus zwei Tabellenblätter ("Suchmaske" und "Daten"). Im Tabellenblatt "Daten" werden die vorhandenen Datensätze regelmäßig ergänzt. Zurzeit sind es etwa 850 Zeilen - mehr als 3000 dürfte es in den nächsten paar Jahren nicht werden.

Mein Wunsch ist nun, dass im Tabellenblatt "Suchmaske" in Zelle B3 ein Zeitstempel (tt.mm.yyyy hh:mm) gesetzt wird, sobald im Blatt "Daten" Einträge in Spalte "B" erfolgen. (Mit der entsprechenden Formatierung stelle ich mir so das Ergebnis vor: Letzte Aktualisierung: 19.05.2012 15:07)

Unter nachfolgendem Link habe ich zwar ein Makro gefunden und auch bereits installiert. Aber als völlig Makro-wissensfreier Mensch bin ich bei der Realisierung meines Vorhabens absolut überfordert.
http://www.re-solutions.de/ooo/makros/

Könnt und wollt ihr mir helfen? Ganz lieben Dank schon mal im voraus.

[Karolus]

Hallo
Mit Libreoffice*** reicht dafür folgender 2-Zeiler:

Code: Alles auswählen

Sub zeitstempel
targetsheet =thiscomponent.sheets().getbyName("Suchmaske")
targetsheet.getCellRangeByName("B3").formula = now
End Sub

***gebunden an das Tabellenereigniss 'Inhalt geändert'
→Rechtsklick Tabellenreiter →Tabellenereignisse....

Karo

[Stephan]

Mit Libreoffice***

geht mit z.B. OOo 3.3.0 ganz genauso.


Gruß
Stephan

[WillWissen]

Hi Karo und Stephan,

danke für die Antworten.

@Karo

Dank deiner Beschreibung und etwas suchen in der Hilfedatei konnte ich den Code dort unterbringen, wo er hingehört und war obendrein in der Lage, ihn bzgl. Formatierung noch anzupassen. (Ich hatte ja schon angedeutet, dass ich mich mit Makros im Allgemeinen und dazu in OO noch im Besonderen schwer tue)

Momentan sieht der Code so aus:

Code: Alles auswählen

Sub Main
targetsheet =thiscomponent.sheets().getbyName("Suchmaske")
targetsheet.getCellRangeByName("B3").formula = "letzte Aktualisierung:" & " " & now 
End Sub

Allerdings habe ich es nicht geschafft, die Systemzeit, die ja durch den Befehl "now" geschrieben wird, von den Sekunden zu befreien. Diese hätte ich gerne noch weg und bitte, mir bei der entsprechenden Syntax zu helfen.

Nochmals vielen Dank.

[Stephan]

z.B.:

Code: Alles auswählen

targetsheet =thiscomponent.sheets().getbyName("Suchmaske")
targetsheet.getCellRangeByName("B3").formula = "letzte Aktualisierung: " & LEFT(now, LEN(now)-3)

Gruß
Stephan

[WillWissen]

Hi Stephan,

vielen Dank für deine Antwort. Genauso wollte ich es haben.

Wünsche noch einen schönen (Rest)Sonntag.