Translations:Macros/Calc/ba001/6/en

    From The Document Foundation Wiki

    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