Nicht direkt, aber man könnte dieses Verhalten per Makro erreichen. SEHR 'quick & dirty' (denn es müsste wohl noch Einiges an Fehlerbehandlung ergänzt werden) z.B. so:Geht das in Open- oder Libre-Office?
Code: Alles auswählen
Sub Jahreszahl_anhaengen()
On Error Goto fehler
addr = Thiscomponent.getCurrentSelection
If addr.supportsService("com.sun.star.sheet.SheetCell") Then
If addr.Type = com.sun.star.table.CellContentType.VALUE Then
aktrow = addr.RangeAddress.StartRow-1
aktcolumn = addr.RangeAddress.StartColumn
aktTable = addr.RangeAddress.Sheet
'Datum in Format TT.MM.JJJJ wird erwartet (Systemeinstellung(!)):
x = Split(ThisComponent.Sheets(aktTable).getCellByPosition(aktcolumn, aktrow).FormulaLocal, ".")
xx = Split(Thiscomponent.getCurrentSelection.FormulaLocal,".")
Thiscomponent.getCurrentSelection.FormulaLocal = xx(0) & "." & xx(1) & "." & x(2)
End If
End If
fehler:
End Sub
Ich hänge mal eine Demodatei an, dort kann man, beginend ab A2 Testeingaben machen. Letztendlich müsste sowas aber als Extension implementiert werden.
Gruß
Stephan