Festes Datum in Zelle bei CALC

de-users
#1

Hallo Gisbert,

hier ein kleine Makro-Lösung (s.u.):

+ Unter [1] musst Du noch die Zelle für das Datum festlegen und die Datum-Art (interne Zahl / Zeichenkette) auswählen, indem Du die jeweils beiden anderen Makro-Zeilen löschst oder mit ' kommentierst.

+ Mit [2] startest Du das Makro. Du musst NICHT vorher LibreOffice starten !

+ Mit [3] kannst Du die CMD so modifizieren, dass Du sie an die Taskleiste anheften kannst. Darüber öffnest Du dann immer eine neue CALC mit aktuellem Datum.

+ Unter Linux die CMD durch ein entsprechendes BASH-Skript ersetzen.

Gruß
Hans-Werner :-))

[1] B a s i c - M a k r o

sub CALC_MitAktuellemDatum

Dim aA() as Variant
Dim oD as Object ' Dokument
Dim oT as Object ' Tabellenblatt
Dim oZ as Object ' Zelle

oD = StarDesktop.loadComponentFromURL ("private:factory/scalc","_blank",0,aA())
oT = oD.Sheets(0)

oZ = oT.getCellByPosition(0,0) ' Zelle "A1"
oZ.Value = Date() ' Datum als "interne Zahl". Deshalb Zelle als Datum formatieren !

oZ = oT.getCellByPosition(1,1) ' Zelle "B2"
oZ.String = CDate(Date()) ' Datum als Zeichenkette

End Sub

[2] W i n d o w s - C M D ( CALC_MitAktuellemDatum.cmd )

@ECHO OFF

REM LibreOffice-Pfad - GEGEBENENFDALLS ANPASSEN !!!
SET L="C:/Program Files/LibreOffice/program/soffice.exe"

REM Makro-Pfad - GEGEBENENFDALLS ANPASSEN !!!
REM In diesem Beispiel steht das Makro "CALC_MitAktuellemDatum" im Modul "Verschiedenes"
SET M="macro:///Standard.Verschiedenes.CALC_MitAktuellemDatum"

REM Ausführung Makro
%L% --nologo %M%

[3] W i n d o w s - C M D a n T a s k l e i s t e a n h e f t e n

[3.1] Von "CALC_MitAktuellemDatum.cmd" Verknüpfung erstellen.

[3.2] In [Ziel] (beispielsweise)

[3.2.1] "E:\TMP\CALC_MitAktuellemDatum.cmd"
ersetzen durch
[3.2.2] C:\Windows\System32\cmd.exe /c "E:\TMP\CALC_MitAktuellemDatum.cmd"

[3.3] Jetzt erscheint im Menü "Eigenschaften" "An Taskleiste anheften".