OpenOffice.info

Jau Danke, funktioniert !!!!! :mrgreen: :mrgreen: :mrgreen: :mrgreen:

http://de.openoffice.info/viewtopic.php?t=56497

[quote="F3K Total" post_id=281868 time=1553967952 user_id=33602]
Aber wohl nicht in Writer ...
[/quote]

Ja, das stimmt, mir ging´s hauptsächlich darum, dass es in einem von beiden funktioniert, und da es in Calc ging ist das für Writer nicht mehr so interessant für mich.

Aber da taucht noch ein anderes Problem auf. Kann man das auch so realisieren, dass er das nur einmal macht (vielleicht in Abhängigkeit mit einer x-beliebigen Zelle ,in der ich was eintragen muss bevor er den Befehl ausführt)? Ich möchte mir nämlich dieses Dokument für jeden Monat in eine andere Tabelle kopieren, wobei dann nur noch die aktuelle Tabelle geändert werden darf. Ich hatte gedacht, dass durch einen Tabellenschutz auch ein automatisches Aktualisieren der Daten verhindert wird, aber dem ist wohl nicht so. Nun bin ich auch kein großer "Calc - Experte",aber das wird doch sicherlich auch zu realisieren sein`?

Aber vielleicht muss ich das auch in einen neuen Post schreiben, wollte es erst einmal so probieren.

WENN(TAG(HEUTE())>26;MONATSENDE(HEUTE();0)+1;HEUTE())

Hallo,
[quote=yazoo post_id=281867 time=1553967235 user_id=10601]
mit dieser Formel klappt es auch ohne Makro.
=WENN(HEUTE()>=DATUM(JAHR(HEUTE());MONAT(HEUTE());27);MONATSENDE(HEUTE();0)+1;HEUTE())
[/quote]
mit dieser Formel auch (aber auch nur in calc).
[code]WENN(TAG(HEUTE())>26;MONATSENDE(HEUTE();0)+1;HEUTE())[/code]

Gruß Peter

Aber wohl nicht in Writer ...

Habe schon herausgefunden.
mit dieser Formel klappt es auch ohne Makro.
=WENN(HEUTE()>=DATUM(JAHR(HEUTE());MONAT(HEUTE());27);MONATSENDE(HEUTE();0)+1;HEUTE())

Aber trotzdem Danke!

Sub set_Date
    enumTextfields = ThisComponent.Textfields.createEnumeration	
	Do While enumTextfields.hasMoreElements
		thisTextfield = enumTextfields.nextElement		
		If thisTextfield.supportsService("com.sun.star.text.TextField.JumpEdit") Then
	        if thisTextfield.PlaceHolder = "DATUM" Then
	            if day(now) >= 26 then
	                sMonth = month(now())+1
	                sYear = Year(now()
	                if len(sMonth) = 1 then sMonth = "0" + sMonth
	                if Month(now()) = 12 then
	                    sMonth = "01"
	                    sYear = Year(now())+1
	                endif
	                sDate = "01."+sMonth+"."+Year(now())
	              else
	                sDate = format(cDate(now()),"DD.MM.YYYY"
	            'xray
	            endif
	            thisTextfield.Anchor.String = sDate
	        endif
		END IF
	loop
End Sub

Moin,
klar geht das, per Makro.
Ich habe in angehängter Beispieldatei einen Platzhalter "DATUM" eingefügt, das folgende Makro setzt das Datum in den Platzhalter so ein, wie du es möchtest, heute z.B. 01.04.2019.
Man kann das Makro natürlich auch an Ereignisse wie Drucken oder Speichern binden, das überlasse ich Dir.
[code]Sub set_Date
enumTextfields = ThisComponent.Textfields.createEnumeration
Do While enumTextfields.hasMoreElements
thisTextfield = enumTextfields.nextElement
If thisTextfield.supportsService("com.sun.star.text.TextField.JumpEdit") Then
if thisTextfield.PlaceHolder = "DATUM" Then
if day(now) >= 26 then
sMonth = month(now())+1
sYear = Year(now()
if len(sMonth) = 1 then sMonth = "0" + sMonth
if Month(now()) = 12 then
sMonth = "01"
sYear = Year(now())+1
endif
sDate = "01."+sMonth+"."+Year(now())
else
sDate = format(cDate(now()),"DD.MM.YYYY"
'xray
endif
thisTextfield.Anchor.String = sDate
endif
END IF
loop
End Sub[/code]
Gruß R

Hallo, man kann ja in Calc oder auch Writer ein Feld mit dem aktuellen Rechnerdatum einfügen. ist es auch möglich ein anderes (festes) Datum was in der Zukunft liegt (z.B. in 1,2,3.....n Tagen) einzufügen.
Oder ich beschreibe es mal anders.

Ich möchte ein Formular erstellen, welches beim Druck oder Speichern den ersten Tag des Folgemonats nur dann ausgibt, wenn ich das Formular z.B. zwischen dem 26. und Ende des Monats erstelle. An allen anderen Tagen soll das aktuelle Rechnerdatum verwendet werden.

Geht das, und wenn ja wie?