Dim Lieferschein, LS_test As Object
dim feld1 As Object
dim Datcheck As Object
Sub Datum_eintragen
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
mydoc = thiscomponent
mysheet = mydoc.sheets(8)
datumA = mysheet.getcellrangebyname("aa2")
Datcheck = Lieferschein.Model
Lieferschein.getControl("Datcheck")
If Datcheck.State = 0 then
datumA.string = "=heute()"
End if
If Datcheck.State =1 then
datumA.string = ""
end if
end Sub