OpenOffice.info

Hallo

@Winfried
[quote]
Der Fehler ist mMn, dass die Funktion einen Zellbereich (genauer: das Objekt eines Zellbereichs) erwartet.
[/quote]
Ja jetzt hat es bei mir ganz leise Klick gemacht. Im Funktions-Assistent ist ja der Hinweis auf Matrtix zu lesen, sprich Daten[u]bereich[/u] und nicht eine einzelne Zelle. Und deshalb hatte ich hier im Forum mal ein bisschen gesucht, und etwas gefunden was vielleicht Klaus helfen könnte.


@Klaus
Schau mal hier rein: [url=http://de.openoffice.info/viewtopic.php?f=18&t=47403]ZÄHLENWENN() im Makro aufrufen[/url]
Vielleicht hilft dir das ja doch.



Gruß
balu



p.s:
Kämpfe momentan mit ein paar Viren. Nein! Nicht Compudda :?

[quote="komma4"]

Der Fehler ist mMn, dass die Funktion einen Zellbereich (genauer: das Objekt eines Zellbereichs) erwartet.

Deshalb sehe ich keine Möglichkeit Werte "direkt" (als Werte) zu übergeben.
Es geht dann nur ein Hilfskontrukt: Werte in Zellen zuweisen und diesen (nun mit Werten besetzten) Bereich an die Funktion zu überreichen.[/quote]

Ok. Danke für die Bestätigung, daß es nicht geht. Muss ich nicht mehr lange rumprobieren. Die vorgeschlagene Lösung nutze ich bisher. Wollte dies nur vereinfachen. Aber wenns nicht geht gehts nicht.

Wo ich allerdings sehen kann, daß die Formel das von Dir genannte "(genauer: das Objekt eines Zellbereichs)" erwartet ist mir nach wie vor unklar. Ich muss bei sowas immer rumraten und probieren :-(

Gruß Klaus

[quote="balu"]zu viele Parameter[/quote]

Gut gedacht :)

Der Fehler ist mMn, dass die Funktion einen Zellbereich (genauer: das Objekt eines Zellbereichs) erwartet.

Deshalb sehe ich keine Möglichkeit Werte "direkt" (als Werte) zu übergeben.
Es geht dann nur ein Hilfskontrukt: Werte in Zellen zuweisen und diesen (nun mit Werten besetzten) Bereich an die Funktion zu überreichen.

Hallo Klaus,

also IRR ist der "englische" Name für das "deutsche" IKV.

[quote]
Aber mit "IRR" geht dies so nicht und führt zu einer Fehlermeldung.
[/quote]
Immer wichtig zu Wissen um was für eine Fehlermeldung es sich dabei handelt.

Bei manchen Calc-Funktionen hilft es anstatt den englischen, den deutschen Namen zu benutzen. Ob es hier zutrifft, weiss ich nicht da nicht getestet. Was mir aber aufgefallen ist, dass Du versuchst zu viele Parameter zu übergeben.

Bei IKV sagt mit der Funktions-Assistent in Calc das nur [color=#008000][b]2[/b][/color], in Worten [color=#008000][b]ZWEI[/b][/color] Parameter vorgesehen sind. Du jedoch versuchst [b][color=#FF0000]DREI [/color][/b]Parameter [color=#666666][i]-{args(0) bis args(2)}-[/i][/color] zu übergeben, was wohl nicht funktionieren kann. Und deshalb empfehle ich dir an "IRR" auch nur [color=#008000]zwei[/color] Parameter zu übergeben. Musst halt mal selber testen ob es hilft.



[quote]
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.
[/quote]
Sorry, aber ich versteh momentan nicht dein Problem und die Frage.



Gruß
balu

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

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

Startzelle = "A1"
  Endzelle = "A3"
  oFunktion = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
  oBereich = oTabelle.getcellrangebyname(Startzelle &":"& Endzelle)
  Ergebnis = oFunktion.callFunction("IRR", Array(oBereich))

Hallo zusammen,
ich versuche gerade Daten an die Funktion Funktion "IRR" in einem Makro zu übergeben. Als Beispiel habe ich dieses funktionierende Makro benutzt.
[code]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]
Aber mit "IRR" geht dies so nicht und führt zu einer Fehlermeldung.

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

Bisher ist es mir nur gelungen einen Datenbereich in einer Tabelle zu übergeben:
[code]Startzelle = "A1"
Endzelle = "A3"
oFunktion = GetProcessServiceManager().createInstance("com.sun.star.sheet.FunctionAccess")
oBereich = oTabelle.getcellrangebyname(Startzelle &":"& Endzelle)
Ergebnis = oFunktion.callFunction("IRR", Array(oBereich))[/code]

Gibt es eine Möglichkeit die Daten im Makro direkt zu übergeben.

Gruß Klaus