ich habe folgenden Code, der auch soweit funktioniert
Code: Alles auswählen
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
Vielen Dank für eure Mithilfe!