OpenOffice.info

Hallo Calc-Spezialisten,

für die Bearbeitung in Tabellen von OOo-Clac 2.4.0 brauche ich sehr oft
das Tages-Datum im Format >TT.MM.JJJJ< und die Real-Zeit >hh.mm.ss<.
Dafür habe ich zwei Macros in Modul 1 eingefügt.

Macro1 (Datum) hat die Tastencombi Strg+-,
Macro 2 (Zeit) hat die Tastencombi Strg++.

Tastencombi für Zeit wird richtig dargestellt.

Tastencombi für Datum wird nur >TT.MM.JJ< dargestellt ?
Beide Tastencombi in einer Zelle funktioniert auch nicht.

Hier die Macros:
Sub Macro1 ()

dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object

document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)

xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Date

end sub

Sub Macro2 ()

dim aktAdress as new com.sun.star.table.CellAddress
dim document, xlSheet as object

document = ThisComponent
'aktuelle Zelle ermitteln
aktAdress=document.getCurrentSelection().getCellAddress()
Set xlSheet = document.Sheets(aktAdress.sheet)

xlSheet.getCellByPosition( aktAdress.column, aktAdress.row).FormulaLocal = Time

End Sub

Wo liegen die Fehler ? Kenne mich mit Macros nur sehr bescheiden aus !

Vielen Dank im Voraus für die Hilfe.
Aga2

Hallo
Sofern du mit dem Tagesdatum nicht mehr rechnen musst, füg es als Text ein, ändere dazu in der letzten Zeile:
...formulalocal = date auf
...string = date

Ansonsten schau dir mal http://extensions.services.openoffice.o ... /DateTime2 an

Gruß Karo

Schau dir mal die Extension DateTime2 an, die Winfried Rohr aka komma4 geschrieben hat.

Gruß
lorbass

Du fügst einen Datumswert ein - und der wird nach dem Gebietsschema formatiert.

sieh' Dir mal meine Signatur an - im Code der Extension findest Du alles nötige, um es in Deinen Makros nachzuvollziehen... wenn Du nicht lieber gleich DateTime2 installierst und anpasst (ein timestamp ist auch dabei )

Hallo karolus, lorbas & komma4,
das ging ja flott. Vielen Dank.

Schertzfrage: Gibt es die Links auch für Latein ?

@ karolus
Leider muß ich bei formulalocal bleiben.

@ an alle
Ist in Date Time2 auch die Lösung für 2 Macros in eine Zelle enthalten ?

Ich brauche die Ausführung so: [TT.MM.JJJJ hh.mm.ss],
manchmal aber auch einzeln, (Nachtrag)
notfalls kann ich auf das Jahr in Langform verzichten.

Gruß Aga2

Aga2 hat geschrieben:Ich brauche die Ausführung so: [TT.MM.JJJJ hh.mm.ss],
manchmal aber auch einzeln,

DateTime2 hat geschrieben:Makro-Routinen: Datum_Feld, Datum_Text, Zeit_Feld und Zeit_Text, Zeitstempel_Feld, Zeitstempel_Text

Damit solltest Du auskommen....

Ich habe ISO8601 eingestellt - im Code-Module DateTime2_conf oben.
Die _TEXT-Formate werden weiter unten zusammengebaut.

Viel Erfolg!