Makro für Datum und Zeit

[WorstCases]

Hallo Leute,

ich versuche mich gerade an einem Makro, dass einen Teimstamp ausgibt (Datum und Uhrzeit).
Sofern ich weiß, gibt es in Calc keine andere, Programmeigene Möglichkeit für einen Timestamp, oder?

Hintergrund: Ich möchte (zunächst - siehe Ende des Beitrags) auf Knopfdruck einen Timestamp in ein bestimmtes, vorher mit der Maus markiertes Feld einfügen.

Ich bin nahe dran, allerdings habe ich keine Programmierkenntinisse. Also, wenn Ihr den Fehler seht, bitte nicht auslachen...

Code: Alles auswählen

Sub MacroTimeStamp()

Dim Datumswert as string
Datumswert = date time()

ThisComponent.CurrentSelection.FormulaLocal = Datumswert

End Sub

Bei "Datumswert" habe ich einfach date & time hintereinander geschrieben, was nicht funktioniert. date oder time alleine funktioniert problemlos...
Wie muss der Code aussehen?

Der 2. Schritt wäre ein automatisierter TimeStamp, ohne Tastendruck. Sagen wir, das Datumsfeld ist A1. Wenn ich im Feld B1 Daten ändere, möchte ich, dass im Feld A1 Das Tatum und Zeit aktualisiert wird. Und das natürlich dann weiter in A2+B2,A3+B3 etc.
Geht das?

Gruß.
WorstCases

[chrk]

Hallo WorstCases,
schau Dir mal die Signatur von Winfried (Benutzername komma4) an:
..."Einfügen von Datum/Zeit/Zeitstempel als OOo V2 Extension", da kannst Du Dir bestimmt was abgucken.

[Karolus]

Hallo

....
Der 2. Schritt wäre ein automatisierter TimeStamp, ohne Tastendruck. Sagen wir, das Datumsfeld ist A1. Wenn ich im Feld B1 Daten ändere, möchte ich, dass im Feld A1 Das Tatum und Zeit aktualisiert wird. Und das natürlich dann weiter in A2+B2,A3+B3 etc.
Geht das?

Zu der Frage hat -ebenfalls- Winfried hier eine Lösung genannt.
Falls du den Zeitstempel in Spalte A und die sich ändernden Daten in Spalte B schreibst, musst du 2 Zeilen im Code ändern:

Code: Alles auswählen

...
oRange = oSheet.getCellRangeByPosition(1,0,1,65535)
...
oDateCell=ThisComponent.CurrentController.ActiveSheet.getCellByPosition(0, actRow)
...

Gruß Karo

[WorstCases]

schau Dir mal die Signatur von Winfried (Benutzername komma4) an:
..."Einfügen von Datum/Zeit/Zeitstempel als OOo V2 Extension", da kannst Du Dir bestimmt was abgucken.

Colles Makro! Danke an Winfried