[de-users] Festes Datum in Zelle bei CALC

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".




--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy