OpenOffice.info

Hallo balu, hallo Stephan!

Ja, der Code von balu entspricht den Angaben in Dannenhöfers Text und ist wohl sauberer gestrickt. Das Problem mit dem thisComponent-Objekt ist davon allerdings unberührt.

@Stefan: Inzwischen lautet meine Fehlermeldung ganz genau wie von dir erwartet und nachvollzogen: 'Eigenschaft oder Methode nicht gefunden' für die Methode .getSheets - das Problem ist nun also erkannt und eingegrenzt.

Ich für meinen Teil bin damit zufrieden, die Makrosicherheit auf "Nachfragen" einzustellen. Ich glaube nicht, dass ich da ständig gefragt werde - für diese eine Datei kann ich damit leben. Es ist unter anderem auch daher von Vorteil die Funktion im Dokument zu speichern, da ich meine Zensurenliste immer mal wieder auf verschiedenen Rechnern (zu Hause, Laptop und in der Schule) bearbeite, und da hab ich sie also immer "dabei".

Danke und Gruß nochmal an alle. Ein zufriedenes Foren-Mitglied namens
tinuviel

[quote]Bislang steht sie in <Meine Makros>Standard>Modul1.[/quote]

Naja, das geht natürlich nicht, das ist dass Problem. Kein Generelles aber eben Eines beim Zugriff auf das ThisComponent-Objekt.

Trotzdem nochmals: ich habe diesen Fall gestern zur Sicherheit aktuell getestet gehabt und bekomme dort nicht die von Dir genannte Fehlermeldung sondern die Fehlermeldung 'Eigenschaft oder Methode nicht gefunden' für die Methode .getSheets, das ist auch die Fehlermeldung die ich erwartet hätte.

[quote]Das erscheint mir nicht logisch[/quote]

wahrscheinlich ist es das auch nicht, da man jedoch mit dem Problem irgendwie umgehen muß, habe ich da schon lange nicht mehr drüber nachgedacht, denn sicher erschien mir das auch einmal unlogisch wo ich das erste Mal davon Kenntnis bekam

[quote]Hab ich die Funktion im Dokument selber, muss ich mich wiederum mit der Makrosicherheit herumschlagen[/quote]

Du mußt ja DEine Funiktion nicht so formulieren wie sie jetzt ist, sondern kannst das auch anders implementieren und dann kannst Du sie zentral speichern.

Zu vermeiden ist eben nur das, unter den hier viorliegenden Randbedingungen, direkt mit dem Dokument-Objekt 'rumgemacht' wird, eine Lösung wäre es z.B. die Noten-Zuordnungstabelle direkt als Array ins Makro zu schreiben und dann dire Auswertung mit Basic-Befehlen ohnec Rückgriff auf VLOCKUP im Code zu implementieren.


Gruß
Stephan

Function Note(Punkte as integer, Maximum as integer) as integer
	Dim args(3) as Variant
    FuncInst = GetProcessServiceManager.createInstance("com.sun.star.sheet.FunctionAccess")
    Ratio = Punkte/Maximum
    Blatt = ThisComponent.getSheets.getByName("Bewertung")
	args(0) = Ratio ' Suchkriterium
	args(1) = Blatt.getCellRangeByName("A2:B7").getDataArray() ' Suchmatrix
	args(2) = 2 ' Spalte in der Suchmatrix
	args(3) = 1 ' Sortier-Parameter 0 oder 1
	Note = FuncInst.callFunction("VLOOKUP",args())
End Function

=NOTE(G4;G3)

Hallo tinuviel,

meine Makro Kenntnisse sind noch nicht die Besten, aber dennoch ist mir da etwas aufgefallen was so nicht richtig sein kann. Hatte das aber auch nicht sofort gesehen und gemerkt. Mir fiel das nur deshalb auf, weil ich das mit "FunctionAccess" mit einer von mir angewandten Sub (nicht Function) mal verglichen hatte.

Schau dir mal bei Dannenhöfer: [url=http://www.starbasicfaq.de/WiekannmanFunktionenvonCalcverwenden..html]Wie kann man Funktionen von Calc verwenden[/url] an. Dann müsstest Du verstehen was ich meine.

Wie man nun ordnungsgemäß deine Function aufbaut, weiß ich noch nicht (fehlt mir die Erfahrung). Aber Sinngemäß müsste sie wohl so ungefrähr aussehen.
[code]
Function Note(Punkte as integer, Maximum as integer) as integer
Dim args(3) as Variant
FuncInst = GetProcessServiceManager.createInstance("com.sun.star.sheet.FunctionAccess")
Ratio = Punkte/Maximum
Blatt = ThisComponent.getSheets.getByName("Bewertung")
args(0) = Ratio ' Suchkriterium
args(1) = Blatt.getCellRangeByName("A2:B7").getDataArray() ' Suchmatrix
args(2) = 2 ' Spalte in der Suchmatrix
args(3) = 1 ' Sortier-Parameter 0 oder 1
Note = FuncInst.callFunction("VLOOKUP",args())
End Function
[/code]
Bei Dim args(3) bin ich mir nicht sicher ob das so in einer Function gemacht wird. Ich kann also nicht zu 100pro bestätigen ob ich alles richtig gemacht habe, da ich die Function nicht ans Laufen kriege. Egal wo ich sie speichere, ich bekomme kein Ergebnis angezeigt.

Aufrufen tu ich sie mit
[code]
=NOTE(G4;G3)
[/code]
Wobei
G3 = die maximal möglichen Punkte
G4 = die Summe der erreichten Punkte
sind.

Aber vielleicht kommst Du ja jetzt einen Schritt weiter. Hoffe ich zumindest.
Wenn nicht, dann poste doch bitte beim nächsten mal deinen gesamten Code.


Gruß
balu

Hallo miteinander!

Langsam kommt Klarheit in die Sache: Es schein wesentlich zu sein, in welchem Modul die Funktion gespeichert ist.

Bislang steht sie in <Meine Makros>Standard>Modul1. Das führt seltsamerweise dazu, dass diese Funktion beim Öffnen der Datei ausgeführt wird, bevor noch alle Tabellenblätter geladen sind (wenn man das so ausdrückt). Das erscheint mir nicht logisch, da der Aufruf der Funktion ja erst in einer Zelle eines Tabellenblattes erfolgt. Aber unter anderem die Bemerkung von Stephan [quote]Mutmaßlich ist die benutzerdefinierte Funktion nicht in der Standardbibliothek des Dokuments gespeichert sondern in einer der zentralen Makrobibliotheken.[/quote] und einige andere Hinweise, die ich in Foren las, brachten mich dazu, die Funktion im Dokument selber zu speichern - und da flutscht alles wie gewünscht.

Und in der Tat: Füge ich zum Beginn der Funktion ein [b]wait 5000[/b] ein, so sehe ich beim Öffnen des Dokuments (wenn die Funktion in <Meine Makros> steht) 5 Sekunden lang das Office-Hauptfenster ohne Tabellenblätter; der Bereich ist komplett grau. Danach erscheint dann prompt wieder die besagte Fehlermeldung (die schlicht besagt, dass das gewünschte Tabellenblatt nicht existiert) und dann die Tabellenblätter.

Hab ich die Funktion im Dokument selber, muss ich mich wiederum mit der Makrosicherheit herumschlagen - das ist aber eine andere Geschichte.

Vielen Dank übrigens auch für die vielen Hinweise zur Variablendeklaration! Habe für mich einen bewährten Grundsatz wiedererkannt: Übe an leichten Beispielen, dann kannst du's auch, wenn es kompliziert wird. Ergo: immer schön deklarieren, auch wenn es unnötig erscheint.
Gruß, tinuviel

Hallo tinuviel,

[quote]
Der Funktionsaufruf gelingt tatsächlich nur mit dem englischen Namen vlookup anstelle von sverweis.
[/quote]
Ich hatte ja auch nicht gesagt, das man generell die deutschen nehmen soll, und im Problemfall die englischen. Sondern genau andersrum. Das aber nur so nebenbei.


[quote]
Habe ich da Glück oder geht das generell?
[/quote]
Wie heißt da ein altes Sprichwort?
[color=#008000][b]Der Krug geht so lange zum Brunnen, bis das er bricht![/b][/color]


[quote]
Worauf muss dabei geachtet werden? Was ist empfehlenswert?
[/quote]
Zu beachten gibt es da schon so einiges. Und ich empfehle dir dringends dir die Seiten von Dannenhöfer mal zu studieren, damit Du nicht sehr böse Überraschungen erlebst.
[url=http://www.starbasicfaq.de/WelcheVariablentypengibtes..html]Welche Variablentypen gibt es[/url]
[url=http://www.starbasicfaq.de/WiewerdenVariablendeklariert..html]Wie werden Variablen deklariert[/url]


[quote]
Oho, da hab ich mich etwas zu früh gefreut.
[/quote]
Hattest Du da die Variablen deklaration für "Blatt" ausgelassen, oder doch wieder integriert?


Gruß
balu

[quote="tinuviel"]Jetzt habe ich noch folgende Fragen:
Das ganze funktioniert auch ohne Variablendeklaration, etwa wie

[code] Function Note(Punkte as integer, Maximum as integer) as integer
dim Blatt as object
dim Bereich as object
...[/code]

und so weiter. Habe ich da Glück oder geht das generell? Worauf muss dabei geachtet werden? Was ist empfehlenswert?[/quote]

Hallo tinuviel,

Da hatte ich den Text schon abgeschickt, guck blöder weise auf das Anmeldedatum von Stephan, denk nur "damn, der Thread ist uralt" und lösch ihn wieder :(

So hier nochmal die Antwort:
Variablen müssen prinzipiell nicht deklariert werden. Die Variablen bekommen dann den Typ "Variant" und können [u]jeden[/u] Wert annehmen. Dabei passen sie sich dem Typ des Wertes an.
Empfehlenswert ist das ganze aber nicht. Bei einem längeren Code verlierst du schnell die Übersicht, welche Variable wann welchen Typ hat.
Das kann grade dann problematisch werden, wenn du eine variable gebrauchst, die als Integer deklariert sein muss, aber immoment den Typ String hat.
Bei Objekten (Table, Sheet, etc.) mache ich es bisher auch nicht, aber ansonsten schaue ich, das ich jede Variable deklariere. So behällst du die Übersicht und musst nicht am Ende auf Variablen-Fehler-Suche gehen.

Kleiner Tipp: Du kannst beim durchlaufen deiner Funktion die Variablen beobachten. Zur Variable springen, Brille anklicken ("Beobachter einschalten") und dann mit einzelschritten deine Funktion beobachten. Ohne Deklaration kann es sein, jenachdem wie du den Code aufgebaut hast, das die Variablen 10x ihren Typ ändern.

Ansonsten finde ich das ganze bei Andrew Pitonyak gut erklärt. Hoffe das reicht dir erstmal als Antwort.
Grüße

[quote]erscheint zunächst für jede Zelle, die die Formel enthält, eine com.sun.star.container.NoSuchElementException[/quote]
Für mich keine nachvollziehbare Fehlemeldung, aber ich nutze auch OpenOffice.org

[quote]Habe ich dann für jede Zelle OK geklickt, ist die Zensurenspalte leer. Beim Neuberechnen des Blattes (Shift-Ctrl-F9) erscheinen die Ergebnisse klaglos wieder. Was ist da los?[/quote]

Mutmaßlich ist die benutzerdefinierte Funktion nicht in der Standardbibliothek des Dokuments gespeichert sondern in einer der zentralen Makrobibliotheken.


Gruß
Stephan

[nachgetestet und dann geschriebenen Unsinn gelöscht]

Blatt = ThisComponent.getSheets.getByName("Bewertung")

Oho, da hab ich mich etwas zu früh gefreut. Wenn ich die Datei mit dem Datenblatt, in dem ich die Formel verwende, öffne, erscheint zunächst für jede Zelle, die die Formel enthält, eine [b]com.sun.star.container.NoSuchElementException[/b]. Der rote Pfel in der IDE steht dabei auf die Zeile
[code]Blatt = ThisComponent.getSheets.getByName("Bewertung")[/code]

Habe ich dann für jede Zelle OK geklickt, ist die Zensurenspalte leer. Beim Neuberechnen des Blattes (Shift-Ctrl-F9) erscheinen die Ergebnisse klaglos wieder. Was ist da los?

Gruß, tinuviel

Function Note(Punkte, Maximum)
FuncInst = GetProcessServiceManager.createInstance("com.sun.star.sheet.FunctionAccess")
Ratio = (Punkte / Maximum)
Blatt = ThisComponent.getSheets.getByName("Bewertung")
Bereich = Blatt.getCellRangeByName("A2:B7")
Note = FuncInst.callFunction("VLOOKUP",array(Ratio,Bereich,2,1))
End Function

Function Note(Punkte as integer, Maximum as integer) as integer
dim Blatt as object
dim Bereich as object
...

So, hallo alle miteinander!

Ich bin für's erste fertig, habe heute die Zeit gefunden, ein bisschen zu tippen...

So sieht die Funktion nun aus, sie tut schön brav ihren Dienst.
[code]
Function Note(Punkte, Maximum)
FuncInst = GetProcessServiceManager.createInstance("com.sun.star.sheet.FunctionAccess")
Ratio = (Punkte / Maximum)
Blatt = ThisComponent.getSheets.getByName("Bewertung")
Bereich = Blatt.getCellRangeByName("A2:B7")
Note = FuncInst.callFunction("VLOOKUP",array(Ratio,Bereich,2,1))
End Function
[/code]

Dazu die Bemerkung:
Der Funktionsaufruf gelingt tatsächlich nur mit dem englischen Namen [b]vlookup[/b] anstelle von [b]sverweis[/b].
(lokalisierte Programmversion: LibreOffice 3.3.2, OOO330m19 (Build:202),tag libreoffice-3.3.2.2, Debian package 1:3.3.2-2~bpo60+1)

Jetzt habe ich noch folgende Fragen:
Das ganze funktioniert auch ohne Variablendeklaration, etwa wie [code]
Function Note(Punkte as integer, Maximum as integer) as integer
dim Blatt as object
dim Bereich as object
...[/code]
und so weiter. Habe ich da Glück oder geht das generell? Worauf muss dabei geachtet werden? Was ist empfehlenswert?

Dank an alle! Gruß, tinuviel

Hallo Forum!
Was für eine wirklich interessante kleine Diskussion sich hier ergeben hat! Ich danke allen für ihre Beiträge, habe gutes gelernt und noch Stoff zum Weiterlesen - das ist cool. Bis bald dann!
tinuviel

Hallo,

@Jürgen
[quote]
Ich meine mich jetzt zu erinnern, dass es dazu einen Thread hier im Forum gibt.
[/quote]
Ja, zu ZUFALLSBEREICH [url=http://de.openoffice.info/viewtopic.php?f=18&t=48477]gukki hier.[/url]
Die anderen beiden Beispiele habe ich durch gemachte Erfahrung festgestellt. Bin mir zwar nich sehr sicher, aber ich vermute dass vielleicht alle aus der Kategorie "Add_in" davon betroffen sind. Aber bitte mich nicht darauf festnageln, im zweifelsfalle muss man das selber herausfinden.



@Stephan
[quote]
sondern nehme an das deutschsprachige Namen, auch unter den hier vorliegenden Bedingungen, nur in einen deutsch-lokalisierten OOo funktionieren dürften. Oder ist das nicht so?
[/quote]
Sehr gute Frage, die mir auch schon so hin und wieder durch dem Kopf geht. Obwohl ich das aber mit der Lokalisierung auch nicht unbedingt bestätigen will. Denn ich hatte ja hier mal ein Thread im Basic-Forum eröffnet, in dem es darum ging das ich das Diagramm in den Hintergrund stellen wollte. Und dabei hatte ich dann durch recherchen herausgefunden, dass man für [color=#FF0000]oShape.layerName[/color] die deutschen Namen "vorne" und "hinten" benutzt.
[url=http://de.openoffice.info/viewtopic.php?f=18&t=47431&sid=5090d76dc33c382e4d08e945f32bede6&sid=5090d76dc33c382e4d08e945f32bede6#p172256]Diagramm -> Hintergrund[/url]
Die Antwort dort von Karolus im folge Beitrag ist auch interesant.


Gruß
balu

Sub Main
Msgbox ThisComponent.Sheets(0).getCellByPosition(1,0).Formula
End Sub

Function abc(x,y)
  FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
  abc = FuncAcc.callFunction("com.sun.star.sheet.addin.Analysis.getRandbetween",array(x,y))
End Function

mmh ...

Die Beobachtung von Balu ist interessant und mir dem konkreten Inhalt nach neu, allerdinggs glaube ich nicht das die Dinge so einfach liegen, sondern nehme an das deutschsprachige Namen, auch unter den hier vorliegenden Bedingungen, nur in einen deutsch-lokalisierten OOo funktionieren dürften. Oder ist das nicht so?

Grundsätzlich gilt auch das wir hier nicht über englische Namen, sondern über internationale Namen reden, was sich jetzt kleinkariert anhört was aber in Detailfällen möglicherwise deshalb von Bedeutung sein kann, weil einzelne Namen inkonsitent sind und in englisch und 'international' dann nicht gleich (Beispiel kene ich derzeitig aber keins).


Ich habe mir jetzt nur einen kurzen Überblick verschafft und es scheint so zu sein das die Funktionen immer mit dem Namen anzusprechen sind den die Abfrage mit .Formula zurückliefert, das aber ist quasi die internationale Funktionsbezeichnung.

Beispielsweise liefert für die Formel =ZUFALLSBEREICH(20;30) die Abfrage mittels:

[code]Sub Main
Msgbox ThisComponent.Sheets(0).getCellByPosition(1,0).Formula
End Sub[/code]

die Rückgabe:

=com.sun.star.sheet.addin.Analysis.getRandbetween(20;30)


und gleichzeitig funktioniert damit der Zugriff per Code:

[code]Function abc(x,y)
FuncAcc = createunoservice("com.sun.star.sheet.FunctionAccess")
abc = FuncAcc.callFunction("com.sun.star.sheet.addin.Analysis.getRandbetween",array(x,y))
End Function[/code]



Insgesemt müßte man das Ganze wohl einmal genauer analysieren, die Ursache der 'Probleme' könnte möglicherweise damit zusamenhängen das die interne Umstellung auf ODF 1.2 noch nicht vollständig konsistent erfolgt ist, wobei ODF 1.2 derzeitig auch nur als OASIS-Standard vorliegt, gleichzeitig jedoch die erste verbindliche Standardiesierung von Tabellenformelausdrücken (namens "OpenFormula") enthält (in ODF 1.0 ist das Ganze nur optional).




Gruß
Stephan

Hallo Balu,

danke für Deine Korrektur.
Ich meine mich jetzt zu erinnern, dass es dazu einen Thread hier im Forum gibt.

Schönes RWE

Jürgen

Hallo Leute,

ich möchte da etwas richtig stellen.
[quote="tutle47"]
Es müssen immer [url=http://www.ooowiki.de/DeutschEnglischCalcFunktionen]englische Funktionsnamen[/url] verwendet werden!
[/quote]
Das "immer" ist mit Voricht zu genießen!

Sagen wir mal lieber:
Wenn der Makro-Code anonsten korrekt ist, und es dennoch zu einer Fehlermeldung beim anwenden der Funktionsnamen kommt, dann die deutschen Funktionsnamen anwenden.
Denn es gibt mehrere die mit dem deutschen Namen geschrieben werden müssen. Wieviele genau, und vor allem welche alle, weiß ich nicht. Das muss man dann im Einzelfall selber heraus bekommen. Hier mal drei als Beispiel:
[color=#0000FF]
ZUFALLSBEREICH
DEZINOKT
DEZINHEX
[/color]


Gruß
balu