probleme mit automatisch erstelltem datum

[ghost75]

hallo, ich habe vor einiger zeit ein makro erstellt, das mir erlaubt, auf druck eines buttons das aktuelle datum in eine zelle eines calc dokuments einzufügen.

Code: Alles auswählen

Sub aktuelles_datum

ThisComponent.Sheets(0).getCellByPosition(6, 22).string = DATE

End Sub

nun wollte ich aneiner anderen stelle im dokument per "ARBEITSTAG" funktion einen bezug zu diesem datum stellen, was nicht funktionierte. wenn ich die datumszelle anklicke wird in der eingabezeile auch nicht das korrekte datumsformat angezeigt, sondern das datum angeführt von einem hochstrich, also so:
'24.04.2009
wie kann ich meinem makro nahebringen, diesen hochstrich wegzulassen? dann funktionierts nähmlich auch....

[ykcim]

Hallo,

Du schreibst den Wert als String in die Zelle, daher auch das Hochkomma.
Um den Wert als Datum reinzuschreiben mußt Du ihn als Value reinschreiben und das Zellenformat auf Datum stellen.

Code: Alles auswählen

Sub aktuelles_datum

ThisComponent.Sheets(0).getCellByPosition(6, 22).value = DATE
ThisComponent.Sheets(0).getCellByPosition(6, 22).Numberformat=36

End Sub

36 ist der Code für "TT.MM.JJJJ" andere Codes muß man einstellen und auslesen.


mfg
Michael


Korregierte Fassung Statt string -> value

[Karolus]

Hallo
Warum nicht:

Code: Alles auswählen

sub datum_setzen
ThisComponent.Sheets(0).getCellByPosition(6, 22).formulalocal = DATE
end sub

?
Gruß Karo

[ykcim]

Es ist egal ob Du

ThisComponent.Sheets(0).getCellByPosition(6, 22).value=DATE
oder
ThisComponent.Sheets(0).getCellByPosition(6, 22).formulalocal = DATE

nimmst. Um dann das gewünschte Format (tt.mm.jjjj) zu erhalten muss man in beiden Fällen Numberformat setzten.

mfg
Michael

[Karolus]

Hallo Michael

Es ist egal ob Du

ThisComponent.Sheets(0).getCellByPosition(6, 22).value=DATE
oder
ThisComponent.Sheets(0).getCellByPosition(6, 22).formulalocal = DATE

nimmst. Um dann das gewünschte Format (tt.mm.jjjj) zu erhalten muss man in beiden Fällen Numberformat setzten.

Ich sehe nirgends das explizit das Format "tt.mm.jjjj" gewünscht ist? - mit ...formulalocal erfolgt automatisch eine Ausgabe im Standarddatumsformat (hier: tt.mm.jj) - mit ...value muss das Format extra gesetzt werden (falls keine Ganzzahlausgabe gewünscht wird)

Gruß Karo

[ykcim]

Hallo Karo,

Der Frager schrieb:

Code: Alles auswählen

sondern das datum angeführt von einem hochstrich, also so:
'24.04.2009
wie kann ich meinem makro nahebringen, diesen hochstrich wegzulassen?

also bin ich davon ausgegangen das er das Format wünscht. Was natürlich nicht wirklich explixit ist

Und wenn man ein bestimmtes Format haben will ist es egal ob man Formulalocal oder Value nimmt (nur String geht nicht). Man muß das Format selber festlegen, sonst kommt das Standardformat.

mfg
Michael