Makro für Datum und Zeit

Antwort erstellen

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[url] ist eingeschaltet
Smileys sind ausgeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Makro für Datum und Zeit

Re: Makro für Datum und Zeit

von WorstCases » So, 22.06.2008 09:19

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

Re: Makro für Datum und Zeit

von Karolus » Fr, 20.06.2008 09:55

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

von chrk » Fr, 20.06.2008 07:27

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.

Makro für Datum und Zeit

von WorstCases » Fr, 20.06.2008 06:16

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

Nach oben