ich möchte beim klicken einer Schaltfläche Formeln in das Dokument schreiben.
zu Testzwecken macht dieses Dokument dieses jetzt beim öffnen.
aus Irgend einem Grund erkennt Calc die Anführungszeichen nicht an und Schreibt die Formel
so: =wenn(F2="";2;5)
Code: Alles auswählen
REM ***** BASIC *****
sub neudokument
Dim RNummer as Integer
Dim Zeile as String
Dim Filename as String ' normalerweise hoht sich das Dokument eine Dokumentennummer
Dim FileNr as String ' habe ich nicht rausgenommen
Dim oDoc as Object
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
odoc=thisComponent
Sheet = oDoc.Sheets(0) '[erstes Arbeitsblatt]
Cell = Sheet.getCellByPosition(4, 18)
Cell3 = Sheet.getCellByPosition(7, 18)
Cell3.string=date
cell4 = Sheet.getCellByPosition(7,1)
cell4.string=("Text")
cell4 = Sheet.getCellByPosition(7,20)
cell4.formula=("=WENN(F2="""";2;5")
for i=26 to 31
ocell = Sheet.getCellByPosition(7,i)
ocell.formula= ("=WENN(F" & i+1 & "=" & CHR(34) & CHR(34) &";;F" & i+1 &"*G" & i+1 &")")
next i
dim args9(0) as new com.sun.star.beans.PropertyValue
args9(0).Name = "ToPoint"
args9(0).Value = "$b$6"
dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args9())
end sub