Domino 9 und frühere Versionen > ND6: Entwicklung

Export von Formel nach Excel

<< < (2/2)

Axel:
Hi,

irgendwas passt da aber nicht zusammen.

Der Aufruf der Funktion soll so sein: MakeFormula(xlRange As String, xlFormula as String)

Du rufst sie aber so auf: MakeFormula("="+"D" + Cstr(xl_DataRowAkt) + "-" + "C" + Cstr(xl_DataRowAkt) + "-" + "E" + Cstr(xl_DataRowAkt) + ")" )
 
Mir fehlt hier die Angabe für den Parameter xRange


Axel

Ole2000:
Sorry, war nich ganz korrekt von mir. Der Parameter wird natürlich mit übergeben. ("H" + Cstr(xl_DataRowAkt))
Die Zelle für die Formel wird ja auch korrekt angesprungen. Es ist nur das  Format der Formel nach dem Export.

Ole2000:
@Axel Haste was rausfinden können?

Axel:
Hi,

ich hab's bei mir mal so ähnlich nachgestellt.

Dabei ist mir zuerstmal eine falsche Klammer am Ende der Formel aufgefallen.

"="+"D" + Cstr(xl_DataRowAkt) + "-" + "C" + Cstr(xl_DataRowAkt) + "-" + "E" + Cstr(xl_DataRowAkt) + ")"

Das ergibt das hier:  =D10-C10-E10)


Mein Code sieht so aus:

...
Set objExcel = CreateObject("Excel.Application")
Call objExcel.Workbooks.Add
Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

strTemp = "="+"D" + Cstr(xl_DataRowAkt) + "-" + "C" + Cstr(xl_DataRowAkt) + "-" + "E" + Cstr(xl_DataRowAkt)
objSheet.Range("A1").Value = strTemp
...

Damit habe ich die Formel auch so in der Zelle A1 stehen. Das Zellformat ist Standard.


Axel



 
 

Ole2000:
Oh Mann !!!
Es lag am ".Value"
Nun gehts bei mir auch

Was hat es mit  objSheet.Range("A1").FormulaR1C1 auf sich???
Damit hatte ich das ja vergeblich versucht !

P.S. Vielen Dank!!!

Navigation

[0] Themen-Index

[*] Vorherige Sete