OpenOffice.info

REM  *****  BASIC  *****
Option VBASupport 1

Function  mySum(a as long, b as long) as long  
  mySum = a + b  
End Function

• Eine Änderung an Zelle B1 wird direkt in Zelle B3 angezeigt. Aber ohne Summierung. Wenn man 42 eingibt, dann wird 42 in B3 angezeigt ?!?
• Änderungen an B2 haben keine Auswirkungen.
• Erst wenn eine Änderung am Makro (Leerzeichen) im Basic Editor gemacht wird, dann funktioniert die Berechnung. Jetzt wird B1 und B2 korrekt summiert und in B3 ausgeben.
• Wenn man im Makro die Zeile „Option VBASupport 1“ auskommentiert, das Programm speichert und neu öffnet, dann Funktioniert die Berechnung sofort ohne dass man etwas im Code ändern muss.

Stephan hat geschrieben: ↑Sa, 13.04.2019 09:08 Ansonsten verstehe ich das Problem nicht, denn die Makros der zweiten Datei (Pattern_Configurator.ods) befinden sich in einer ganz anderen Bibliothek (VBAProject) als die Funktion, womit man "Option VBASupport 1" im Modul der Funktion (Module1 in Bibliothek "Standard") löschen kann.

Die Aussage verstehe ich nicht wiederrum nicht.

Im Zelle K2 wird Testweise die Makro Funktion „=mybin2dec(K1)“ verwendet. Sie wandelt eine Binärzahl in eine Dezimalzahl um. Auch diese Funktion geht nach dem Laden der Datei nicht. Die Zelle zeigt „###“ = „#NAME?“. Wenn man den Basic Editor öffnet , etwas ändert (Leerzeichen) und anschließend Zelle K2 („=mybin2dec(K1)“) ändert, dann funktioniert das Makro. Das ist genau so wie bei der Testdatei.

Stephan hat geschrieben: ↑Sa, 13.04.2019 15:39 Der Grund dafür ist IN DIESEM FALLE aber völlig klar, wenn das Problem mit AOO auftritt. Die Funktion "mybin2dec" befindet sich in der Bibliothek "VBAPoject" und dort wird sie von AOO nicht gefunden, weil AOO solche Funktionen aussschliesslich in der Bibliothek "Standard" erwartet.

Stephan hat geschrieben: ↑Sa, 13.04.2019 15:39 Wenn es also darum geht diese Funktion in AOO lauffähig zu machen (ohne sie in die Bibliothek "Standard" zu verschieben, weil die Funktion die Makro-Option braucht die aber wiederum in "Standard" abgeschaltet sein muss wegen der anderen Funktion) könnte man höchstens versuchen diese Funktion nach "Standard" zu verlegen und dann aber den Funktionscode in der anderen Bibliothek zu belassen (Name der Funktion muss dann ein anderer sein) und diesen Code dort von der Funktion in "Standard" aus aufzurufen.
Müsste man testen ob das klappt, weiß ich nicht.

Komisch ist aber, dass AOO und LO die Funktionen kennt, wenn man den Code im Basic Editor verändert hat. Die Hoffnung währe gewesen, dass es einen Trick gibt wie man das dem Programm beibringen kann ohne dass man den Basic Editor öffnen muss.

Vielleicht ein anderer Syntax?

Das habe ich schon probiert. Bin dann aber daran gescheitert, dass ich nicht wusste wie ich im Standard mit einem Range (Bereich mehrerer Zellen) umgehe.

Function  mySum(a as long, b as long) as long  
  mySum = a + b  
End Function

Function  mySum(a as long, b as long) as long  
  mySum = mySum_work(a, b)  
End Function

Function  mySum_work(a as long, b as long) as long  
  mySum_work = a + b  
End Function

Function jms1()
jms1 = ThisComponent.URL
End Function

Function jms2()
jms2 = ThisComponent.getLocation
End Function

Damit funktioniert alles wie es soll,

Das “mySum” Beispiel hatte ich nur kreiert um die Problematik zu zeigen. Im Programm benötige ich es nicht.

ABER wenn man die Datei schließt und wieder öffnet kennt LO die VBA Makros wieder nicht.

Falls Du damit leise Zweifel anmelden möchtest, dann nur zur Sicherheit: AOO/LO kennen die dann deshalb weil Du durch das Ändern automatisch das Laden der Bibliothek auslöst.

Open Office kennt die Makros in dem VBA Modul genau so wenig.

Libre Office (und Open Office) führen Makros nur dann aus, wenn sie im Modul Standard sind:

Du kannst natürlich problemlos ein Lademakro schreiben, das Deine (Code-)Bibliotheken und die benötigten Dialog-Bibliotheken z.B. so:

sub myMakroInit
  if NOT BasicLibraries.isLibraryLoaded("VBAProject") then BasicLibraries.loadLibrary("VBAProject")
end Sub

Function  mySum(a as long, b as long) as long  
  mySum = a + b  
End Function