Seite 1 von 1

Makro für Datum und Zeit

Verfasst: Fr, 20.06.2008 06:16
von 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

Re: Makro für Datum und Zeit

Verfasst: Fr, 20.06.2008 07:27
von 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.

Re: Makro für Datum und Zeit

Verfasst: Fr, 20.06.2008 09:55
von Karolus
Hallo
WorstCases hat geschrieben: ....
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

Re: Makro für Datum und Zeit

Verfasst: So, 22.06.2008 09:19
von 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