Problem bei Makro-Datum formatieren und paste&copy

[Mifrae]

Hallo, ich habe die Version: 4.4.7.2 . In der vorherigen Version hatte ich ein Makro fürs aktuelle Datum:
sub Aktuelles_Datum
odoc=thisComponent

oZelle=oDoc.getCurrentSelection()

checkzelle=HasUnoInterfaces( oZelle, "com.sun.star.table.XCell" )

if checkzelle then
oZelle.string=date

else

msgbox "Mehrere Zellen markiert"

end if

end sub
Das habe ich per Tastenkomb. in eine Zelle eingefügt und konnte es mit "paste&copy" rauf und runter kopieren tageweise. In der jetzigen Version funktioniert das Makro zwar auch ABER statt der Formatierung tt.mm.jj habe ich tt.mm.jjjj und wenn ich "paste&copy" anwende bleiben tt und mm gleich aber das Jahr wird auf- oder absteigend verändert. Wie komme ich zu meiner alten Formatierung tt.mm.jj und wie kopiere mit "paste&copy", so dass ich fortlaufend tt. und mm. bekomme?
Wer kann mir helfen?
mifrae

[lorbass]

1. Fragen zur Programmierung gehören in den Bereich LibreOffice Programmierung.
2. Zur übersichtlichen Darstellung des strukturierten Programmcodes und seiner klaren Trennung vom laufenden Text verwende bitte die [​code]​[​​/code] Tags:

   Code: Alles auswählen

   sub Aktuelles_Datum
   odoc=thisComponent
   	oZelle=oDoc.getCurrentSelection()
   	checkzelle=HasUnoInterfaces( oZelle, "com.sun.star.table.XCell" )
   	if checkzelle then
   		oZelle.string=date
   	else
   		msgbox "Mehrere Zellen markiert"
   	end if  
   end sub

3. Schau mal, ob dir die Extension DateTime2 von Winfried Rohr aka komma4 weiterhilft, als fertige Lösung und/oder um Lernen anhand der Lösung. Winfried ist Admin im Forum OpenOffice.info rund um OpenOffice.org und LibreOffice, und auch hier gelegentlich vertreten.

Gruß
lorbass

[F3K Total]

Hi, versuche es mal mit

Code: Alles auswählen

oZelle.value = date

dann kannst Du die Zelle mit dem Datumsformat versehen (Rechtsklick->Zellen formatieren->Reiter Zahlen->Kategorie Datum), dass du möchtest.
Es ginge auch

Code: Alles auswählen

oZelle.string = Format(date,"DD.MM.YY")

dann hast Du aber, wie vorher, reinen Text in der Zelle, kannst das Datum nicht für Berechnungen nutzen.
Gruß R