OpenOffice.info

function my_join(a,b,c,d)
	my_join = join(array(a,b,c),d)
end function

Eine ganz naiv geschriebene UDF:
[code]
function my_join(a,b,c,d)
my_join = join(array(a,b,c),d)
end function[/code]

braucht 3 bis 5 sec für 10000 Ausführungen

die [url=http://de.openoffice.info/viewtopic.php?f=25&t=60394]"pyjoin"***[/url]-Addin-funktion ( die ähnlich der oben geposteten funktion arbeitet), benötigt für die gleiche Aufgabe <0,5sec

Hallo Karolus,

die beiden Varianten tun schon etwas (ich habe den Funktionsteil nur der Übersicht wegen weggelassen)
und zwar exakt das gleiche, nach dem Variante2 sich den String geholt hat, der in Variante1 übergeben wird.

Also das holen des String braucht länger wie die eigentliche Funktion war meine Erkenntnis die ich teilen wollte.
Wenn man es zurückrechnet braucht es ~ 5 mS um den String zu holen (auf meinem AMD 2x 1.8 MHz anno 2007) :wink:
~ 3 mS für die eigentliche Funktion.

Dafür das die Funktion selbst eigentlich garnichts tut, sind beide Zeiten völlig indiskutabel.

Karolus

=MEINEFUNKTION("Tabelle4"; "M"&Zeile(A2)); 1)  

FUNCTION MEINEFUNKTION(Tab$, Cell$ , Para% ) 
oCalc = ThisComponent
myText = oCalc.Sheets.getByName(Tab).getCellRangeByName(Cell).String

Hallo,

habe es jetzt doch noch einmal anders versucht und Tabelle und Zelladresse direkt als String übergeben

[code]=MEINEFUNKTION("Tabelle4"; "M"&Zeile(A2)); 1)
[/code]
und dann innerhalb der Funktion den Text aus der Zelle geholt mit

[code]FUNCTION MEINEFUNKTION(Tab$, Cell$ , Para% )
oCalc = ThisComponent
myText = oCalc.Sheets.getByName(Tab).getCellRangeByName(Cell).String
[/code]

damit habe ich das Problem mit dem "0" String gelöst aber es braucht hiermit mehr als die doppelte Zeit
(doppelklick füllen und berechnen) 7500 Zeilen, vorher 20 Sekunden, hiermit 50 Sekunden.
Also keine wirkliche Verbesserung :(

Hallo

[quote]fühlst du dich auf den Schlips getreten? [/quote]

Nein, ich wollte lediglich zum Ausdruck bringen, das aus dem Kontext nicht ersichtlich war, das im Falle einer leeren Zelle `MEINFUNKTION` gar nicht benötigt wird.

Hallo Karolus,

[quote="Karolus"]woher sollte ich wissen das daß so gewünscht wird?[/quote]
fühlst du dich auf den Schlips getreten?

Also mein Nachsatz, meine Anmerkung war ganz sicher nicht dazu gedacht dieses zu bewirken,
sondern ein Ausdruck dessen, das ich mit der Lösung leben kann.

peace Y :D

[quote="clag"]Hallo Karolus,

jetzt wo du es so aufgezeigt hast, geht es auf die Art auch noch etwas resourcenschonender,
da ja der String aus der verknüpften Zelle verarbeitete werden soll,
braucht man die Funktion erst garnicht aufrufen wenn die verknüpfte Zelle leer ist

[code]=WENN(ISTLEER(A3);"";MEINEFUNKTION(A3);1))[/code][/quote]

woher [u]sollte[/u] ich wissen das daß so gewünscht wird?

=WENN(ISTLEER(A3);"";MEINEFUNKTION(A3);1))

Hallo Karolus,

jetzt wo du es so aufgezeigt hast, geht es auf die Art auch noch etwas resourcenschonender,
da ja der String aus der verknüpften Zelle verarbeitete werden soll,
braucht man die Funktion erst garnicht aufrufen wenn die verknüpfte Zelle leer ist

[code]=WENN(ISTLEER(A3);"";MEINEFUNKTION(A3);1))[/code]

Hallo Karolus,

ok, innerhalb einer normalen UDF bekommt man es dann wohl nicht in den Griff.
Aber mit deiner Formel Variante kann man zumindest schon mal das Problem umschiffen, wenn es einem bewusst ist.
Uhhh mit "ADDins" damit "tue ich mich noch sehr schwer".

Besten Dank für die Aufklärung und Unterstützung.

=MEINEFUNKTION(WENN(ISTLEER(A3);"";A3);1) 

Du kannst in einer UDF nicht unterscheiden weil [u]bereits Calc[/u] leere Zellen und Zellen mit dem Inhalt 0 [u]als 0 weiterreicht[/u].

[quote="clag"]Wie kann ich das Problem lösen?[/quote]

kümmere dich [u]vor[/u] der Übergabe ums casten:
[code]=MEINEFUNKTION(WENN(ISTLEER(A3);"";A3);1) [/code]

oder schreibe eine Addinfunktion, dort kannst in der .idl Beschreibung festlegen wie die übergebenen Argumente gecastet werden.
[url]http://www.openoffice.org/api/docs/common/ref/com/sun/star/sheet/AddIn.html[/url]

Function MeineFunktion(Text as String , Para as Integer)
MeineFunktion = Text 
end  Function

if Text = "0" then Text =""  

if isEmpty(Text) then Text ="" 
if isNull(Text) then Text =""

Hallo Kenner und Könner

in einer Benutzer definierten Funktion übergebe ich einen Zellen-String
in der Zelle steht =MEINEFUNKTION(A3;1)

[code]Function MeineFunktion(Text as String , Para as Integer)
MeineFunktion = Text
end Function
[/code]
Dieses Funktion liefert mir einen Text "0" in der Zelle wenn A3 leer ist, wieso wird aus einer leeren Zelle "" ein Text "0" ?
Das erscheint mir unlogisch und störend, weil "leer" soll natürlich "leer" bleiben.

Wenn ich nun versuche das mit dieser Zeile auszubügeln
[code]if Text = "0" then Text ="" [/code]
tue ich ja etwas falsches, denn A3 könnte ja tatsächlich der Text "0" enthalten und der wird dann "platt" gemacht.
mit
[code]if isEmpty(Text) then Text =""
if isNull(Text) then Text =""
[/code]hatte ich keine Erfolg?

Wie kann ich das Problem lösen?