Seite 1 von 1

Problem bei Makro-Datum formatieren und paste&copy

Verfasst: Sa 26. Dez 2015, 13:45
von 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

Re: Problem bei Makro-Datum formatieren und paste&copy

Verfasst: Sa 26. Dez 2015, 17:07
von 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:
    Mifrae hat geschrieben:

    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

Re: Problem bei Makro-Datum formatieren und paste&copy

Verfasst: Sa 26. Dez 2015, 18:02
von 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