Funktion IKV (IRR), Datenübergabe
Verfasst: Mi, 27.02.2013 10:27
Hallo zusammen,
ich versuche gerade Daten an die Funktion Funktion "IRR" in einem Makro zu übergeben. Als Beispiel habe ich dieses funktionierende Makro benutzt.
Aber mit "IRR" geht dies so nicht und führt zu einer Fehlermeldung.
Bisher ist es mir nur gelungen einen Datenbereich in einer Tabelle zu übergeben:
Gibt es eine Möglichkeit die Daten im Makro direkt zu übergeben.
Gruß Klaus
ich versuche gerade Daten an die Funktion Funktion "IRR" in einem Makro zu übergeben. Als Beispiel habe ich dieses funktionierende Makro benutzt.
Code: Alles auswählen
Sub Test()
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
Dim args( 2 ) As Variant
args(0) = 8
args(1) = 4
args(2) = 12
result = oFunctionAccess.callFunction( "LCM", args() )
msgbox result
end sub
Code: Alles auswählen
Sub TestIRR()
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
Dim args( 2 ) As Variant
args(0) = -1000
args(1) = 10
args(2) = 1100
result = oFunctionAccess.callFunction( "IRR", args() )
msgbox result
end sub
Code: Alles auswählen
Startzelle = "A1"
Endzelle = "A3"
oFunktion = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
oBereich = oTabelle.getcellrangebyname(Startzelle &":"& Endzelle)
Ergebnis = oFunktion.callFunction("IRR", Array(oBereich))
Gruß Klaus