OpenOffice.info

hi Karo,
hat prima geklappt danke
LG Miki

 ocell.formulalocal= "=WENN(F" & i+1 & "="""";"""";F" & i+1 &"*G" & i+1 &")"

Hallo
Verwende englische Funktionsnamen oder ..formula[u]local[/u] = ...

[code] ocell.formulalocal= "=WENN(F" & i+1 & "="""";"""";F" & i+1 &"*G" & i+1 &")"[/code]
tut was es wohl soll.
das ist ein Krampf in Basic wenn man Quotes quoten muss, in Python würde man schreiben:
ocell.formulalocal= """=WENN(F%s="";"";F%s*G%s)""" %( (i+1,) *3 )

Gruß Karo

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

hallo,

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: [b]=wenn(F2="";2;5)[/b]

[code]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
[/code]

Wie kann ich das Problem lösen?