OpenOffice.info

Code: Alles auswählen

sub Beisp_Verknuepfen
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$D$9"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())

rem ----------------------------------------------------------------------
dim args3(0) as new com.sun.star.beans.PropertyValue
args3(0).Name = "Nr"
args3(0).Value = 5
dispatcher.executeDispatch(document, ".uno:JumpToTable", "", 0, args3())
rem ----------------------------------------------------------------------
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "ToPoint"
args4(0).Value = "$F$4"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args4())
rem ----------------------------------------------------------------------
dim args5(5) as new com.sun.star.beans.PropertyValue
args5(0).Name = "Flags"
args5(0).Value = "A"
args5(1).Name = "FormulaCommand"
args5(1).Value = 0
args5(2).Name = "SkipEmptyCells"
args5(2).Value = false
args5(3).Name = "Transpose"
args5(3).Value = false
args5(4).Name = "AsLink"
args5(4).Value = true
args5(5).Name = "MoveMode"
args5(5).Value = 4
dispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args5())
rem ----------------------------------------------------------------------
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "ToPoint"
args6(0).Value = "$A$1"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args6())
end sub

Code: Alles auswählen

sub formelschreiben
   doc = thiscomponent
   targetsheet = doc.sheets(4)
   targetsheet.getCellRangeByName("F4").Formula = "=andereTabelle.$D$9"
   'targetsheet.getCellByPosition( c, r ).Formula = "=andereTabelle.$D$9" 'alternativ per Spalten/Zeilen-index
end sub

Code: Alles auswählen

sub formelschreiben
   doc = thiscomponent
   targetsheet = doc.sheets(4)
   sourcesheet = doc.sheets (1)
   targetsheet.getCellRangeByName("F4").Formula = sourcesheet.getCellrangeByName("D9")
end sub 

Code: Alles auswählen

sub formelschreiben
   doc = thiscomponent
   targetsheet = doc.sheets(4)
   sourcesheet = doc.sheets (1)
   targetsheet.getCellRangeByName("F4").Formula = "=" & sourcesheet.Name & ".D9"
end sub 

Code: Alles auswählen

sub formelschreiben
   doc = thiscomponent
   targetsheet = doc.sheets(4)
   sourcesheet = doc.sheets (1)
   For n = 8 to 15
      sourcecell = sourcesheet.getCellRangeByPosition(n,3,n,3)
      targetsheet.getCellByPosition(4,n).Formula =  "=" & sourcesheet.Name & ".D9"
   Next
end sub

Code: Alles auswählen

sub formelschreiben
   doc = thiscomponent
   targetsheet = doc.sheets(4)
   sourcesheet = doc.sheets (1)
   sources() = array("D9", "E14", "A7", 'usw....  )
   For n = 8 to 15
      sourcecell = sourcesheet.getCellRangeByPosition(n,3,n,3)
      targetsheet.getCellByPosition( 4, n ).Formula =  "=" & sourcesheet.Name & "." & sources( n-8 )
   Next
end sub