Code: Alles auswählen
REM ***** BASIC *****
Sub Main
With ThisComponent.getEmbeddedObjects
.getByName("Objekt4").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A1").Value = _
.getByName("Objekt1").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("B3").Value
.getByName("Objekt4").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A2").Value = _
.getByName("Objekt2").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("A3").Value
End With
End Sub
function HALLOWELT()
HALLOWELT="Hallo Welt"
end function
function MYVALUE()
MYVALUE=This.Component.getEmbeddedObjects().getByName("Objekt1").getEmbeddedObject.Sheets().getByName("Tabelle1").getCellRangeByName("B3").Value
end function
Extras->Makros->Makros verwalten->OpenOffice Basics->test-mitSchaltfläche.odt->Standard->Module1