Translations:Macros/Calc/ba001/6/en
doc = ThisComponent
sheet = doc.CurrentController.ActiveSheet cell = sheet.getCellRangeByName(CELL_NAME_SOURCE) If cell_source.Type = 1 Then cell.Value = cell_source.Value ElseIf cell_source.Type = 2 Then cell.String = cell_source.String Else cell.Formula = cell_source.Formula End If
End Sub