Seite 1 von 1

Re: Datum beibehalten

Verfasst: Di, 01.07.2014 14:23
von Gert Seler
Hallo Tubist,
Mit "Extras" --->Anpassen ....Tastatur ....Bereich="einfügen" ...."Funktion"=Aktuelles Datum einfügen
"Tastenkombination"=Strg + Umschalt + . einstellen, "Tasten"=Strg + Umschalt + .
Mit "OK" Fenster verlassen.
Das "Aktuelle-Datum" sollte auch in Zukunft bestand haben.

mfg
Gert

Re: Datum beibehalten

Verfasst: Di, 01.07.2014 15:54
von paljass
Hi,
... ansonsten liest du hier.

Der Tipp von Gert lässt sich mit AOO 4.1 nicht umsetzen, weil es keine Funktion "Aktuelles Datum " gibt - jedenfalls finde ich die auf dem vorgeschlagenen Weg nicht.

paljass

Re: Datum beibehalten

Verfasst: Di, 01.07.2014 18:48
von Stephan
Anhängend eine Extension die das Einfügen von festen Datumswerte in Calc-Zellen für alle aktuellen OO/LO-Versionen ermöglicht.

Die Extension normal mittels Extensionmanager installieren und dann ein neues Calc-Fenster öffnen (oder OO/LO neustarten). Dann gibt es bei Calc unter Hilfe zwei neue Einträge:
datumsextension.gif
datumsextension.gif (19.29 KiB) 8447 mal betrachtet
mit einem lässt sich das Datum eintragen, mit einem das Datumsformat dauerhaft setzen. Setzt man kein Format ist der Default TT.MM.JJJJ HH:MM:SS


Gruß
Stephan

Re: Datum beibehalten

Verfasst: Do, 03.07.2014 13:49
von Stephan
schade nur, daß es beim öffnen der Vorlage nicht von alleine geht und erhalten bleibt
dann musst Du es so einrichten, woher soll ich das wissen? Mal ehrlich, ist normale Kommunikation so schwiertig dass man von "schade nur ..." reden muss statt einfach nach Hilfe zu fragen wie etwas geht?

Um in Tabelle1 Zelle A1 automatisch bei der DokumentERZEUGUNG ein festes Datum zu schreeiben erstelle ein Makro:

Code: Alles auswählen

Sub Datum_in_Zelle()
	With ThisComponent.Sheets().GetByName("Tabelle1").getCellRangeByName("A1")
		.FormulaLocal = Now() 
		.NumberFormat = 36
	End With
End Sub
speichere es im Dokument und weise dem EReignis "neues Dokument" dieses Makto zu und Speichere das Dokument als Dokumentvorlage.


Gruß
Stephan

Re: Datum beibehalten

Verfasst: Fr, 04.07.2014 09:44
von Stephan
bin bloss zu blööd dazu, funzt nicht
Du bist zu blöd eine Datei (Dokumentvorlage) herunterzuladen, zu speichern und dann doppelzuklicken? Mehr Arbeit ist es nämlich nicht.


Gruß
Stephan

Re: Datum beibehalten

Verfasst: Fr, 04.07.2014 10:50
von Jörg
Hallo Stephan,
ich kriegs auch nicht hin.
Habe die Tabelle gespeichert, das Makro in mein Dokument eingefügt und wollte es erst mal mittels Schaltfläche (Aktion ausführen) ausführen.
In Deiner OrginalTabelle funktioniert das auch. In meiner Tabelle wird wie nachstehend "gemeckert":

BASIC_Laufzeitfehler.
Es ist eine Exception aufgetreten.
Typ: com.sun.star.container.NoSuchElementException
Message: .

OOO Version: 4.1.

Ich finde auch das Tabellenereignis "Neues Dokument" nicht, sondern "Dokument aktivieren" bzw. "... deaktivieren". :?

Würd mich freuen, wenn Du das nochmal erläuterst.
Gruß Jörg

Re: Datum beibehalten

Verfasst: Fr, 04.07.2014 11:41
von clag
Hallo zusammen,

Stephan hatte doch schon ein .ots hoch geladen also eine Vorlage wenn man die direkt ins Vorlagen Verzeichnis kopiert funzt es sofort, hat dann aber den Nachteil, das das Dokument dies kleine Makro mit sich rum trägt.

Einfacher ist es ein neues Makro "setDate" zu erstellen und Makro/Standard/Modulexxx abzulegen

dann die Vorlage erstellen und gewünschter Stelle Platz fürs Datum lassen
nun unter Menü > Extras > Anpassen > Ereignisse > Dokument erzeugt das soeben erstellte Makro "setDate" aus Standard.. zuweisen > ok
Datei als Vorlage speichern fertig

ein aus dieser Vorlage generiertes neues Dokument enthält dann an den angegebene Stellen die gewünschten Datum Einträge.

Code: Alles auswählen

sub setdate
myDoc = thisComponent
if left(mydoc.title,9) ="Unbekannt" then
print mydoc.title

mySheet = myDoc.Sheets().getByName("Tabelle1")
mycell01 = mysheet.getCellRangeByName("$C$3")
mycell02 = mysheet.getCellRangeByName("$C$4")
mycell03 = mysheet.getCellRangeByName("$C$6")
mycell04 = mysheet.getCellRangeByName("$C$7")

if mycell01.string = "" then
mycell01.string = Format(Date(),"DDDD, YYYY-MMM-DD")
end if

if mycell02.string = "" then
mycell02.string = Time()
end if

if mycell03.string = "" then
mycell03.value = Date()
end if

if mycell04.string = "" then
mycell04.formula = Time()
end if

end if
end sub

ist etwas aufwendiger um bei versehentlichem Start ein überschreiben zu vermeiden
und mit Beispielwerten belegt

Re: Datum beibehalten

Verfasst: Fr, 04.07.2014 12:16
von Stephan
Würd mich freuen, wenn Du das nochmal erläuterst.
Was ist denn bitte an:
herunterzuladen, zu speichern und dann doppelzuklicken
nicht zu verstehen?

Tue exakt was dasteht und höre auf mit Versuchen von Schaltflächen oder Makros kopieren. Das gepostete Dokument ist ohne jegliche Vorarbeiten sofort lauffähig.

Also:

1. Lade das Dokument herunter und speichere es lokal auf Festplatte
2. doppelklicke das Dokument

DAS IST ALLES.

Gruß
Stephan

Re: Datum beibehalten

Verfasst: So, 13.12.2015 21:59
von Quattro112112
Hi,

kann man da ganze jetzt auch mit Shortcuts erledigen? also das ich zum beispiel jj eingebe und das aktuelle datum/ Uhrzeit erscheint und bleibt fest?

Danke :)