REM  *****  BASIC  *****

Sub Setze_Datum()
With ThisComponent.CurrentController.getActiveSheet
	dpf = .Drawpage.Forms
	dfn = dpf.getByName("Formular").GetByName("datum1").date
	.getCellRangeByName("A1").FormulaLocal = CDateFromIso(dfn)
End With
End Sub