OpenOffice.info

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 :)

[quote]Würd mich freuen, wenn Du das nochmal erläuterst.[/quote]

Was ist denn bitte an:

[quote]herunterzuladen, zu speichern und dann doppelzuklicken[/quote]

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

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

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 [color=#008000]Menü > Extras > Anpassen > Ereignisse > Dokument erzeugt [/color] 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]
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

[/code]

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

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

[quote]bin bloss zu blööd dazu, funzt nicht[/quote]

Du bist zu blöd eine Datei (Dokumentvorlage) herunterzuladen, zu speichern und dann doppelzuklicken? Mehr Arbeit ist es nämlich nicht.


Gruß
Stephan

Sub Datum_in_Zelle()
	With ThisComponent.Sheets().GetByName("Tabelle1").getCellRangeByName("A1")
		.FormulaLocal = Now() 
		.NumberFormat = 36
	End With
End Sub

[quote]schade nur, daß es beim öffnen der Vorlage nicht von alleine geht und erhalten bleibt[/quote]

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]Sub Datum_in_Zelle()
With ThisComponent.Sheets().GetByName("Tabelle1").getCellRangeByName("A1")
.FormulaLocal = Now()
.NumberFormat = 36
End With
End Sub
[/code]
speichere es im Dokument und weise dem EReignis "neues Dokument" dieses Makto zu und Speichere das Dokument als Dokumentvorlage.


Gruß
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:

[attachment=0]datumsextension.gif[/attachment]

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

Hi,
... ansonsten liest du [url=http://de.openoffice.info/viewtopic.php?f=25&t=56497]hier[/url].

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

Hallo Tubist,
Mit "[b]Extras" --->Anpassen ....Tastatur ....Bereich[/b]="einfügen" ...."[b]Funktion[/b]"=Aktuelles Datum einfügen
"[b]Tastenkombination[/b]"=Strg + Umschalt + . einstellen, "[b]Tasten[/b]"=Strg + Umschalt + .
Mit "OK" Fenster verlassen.
Das "Aktuelle-Datum" sollte auch in Zukunft bestand haben.

mfg
Gert