ich würde gerne wissen ob es möglich ist eine Formel in eine Zelle einzutragen, bei denen die Formel sich auf bestimmte stellen bezieht.
Auf Dannenhoefer wird erklärt:
Code: Alles auswählen
Sub Test
myDoc = thisComponent
mycell = mysheet.getCellByPosition(0,0)
mySheet = myDoc.sheets(0)
myWert="A1"
myZelle="$Tabelle1.A1"
mycell.Formula = "=A2*B2"+"+"+myWert+"*"+myZelle
End Sub
=A2*B2+A1*$Tabelle1.A1
ist es auch irgendwie möglich folgendes zu machen:
Code: Alles auswählen
Sub Test2
myDoc = thisComponent
mySheet = myDoc.sheets(0)
mycell = mysheet.getCellByPosition(5,5)
myWert="A1"
oRow = First_Empty_Row(mySheet,"B")
myZelle = mySheet.getcellbyposition(0,oRow)
mycell.Formula = "=A2*B2"+"+"+myWert+"*"+myZelle
End Sub
Function First_Empty_Row(oSheet, sColumnName)
oColumn = oSheet.Columns.getbyName(sColumnName)
oEC = oColumn.queryEmptyCells
oERange = oSheet.getcellrangebyName(oEC.ElementNames(uBound(oEC.ElementNames)))
First_Empty_Row = oERange.RangeAddress.StartRow
end function
=A2*B2+A1*A15
LG Benny