OpenOffice.info

Hallo noch einmal,

es funktioniert auch folgendermaßen und ist fast genauso schnell wie die oben angeführte OOBasic-Variante und das auch ohne "option VBASupport 1":

Sub schnell()
dim Ausgabe(0 to 5000, 0 to 2)

oRange = ThisComponent.Sheets().getByIndex(0).getCellRangeByName("A1:D7500")
yEin ...

Hallo Hawe,

du hast vollkommen recht, dass das funktioniert. Ist auch von der Programmierung her wesentlich einfacher und kürzer (habe ich leider schon öfter im Vergleich VBA/OOBasic festgestellt), allerdings arbeitet der Code auch wesentlich langsamer.
Ich wollte ja gerade, um die lange ...

Hallo HW,

vielen Dank für deine Hilfe.
Funktioniert Range("F1:G9") denn auch, wenn a ein selbst erstelltes Array, im besten Fall sogar ein zweidimensionales wie Ausgabe(x,y), ist?
Das wär super. Funktionieren bei option VBASupport 1 die Funktionen von OOBasic auch?

Viele Grüße

Lupo

Wie bring ...

Hallo Hawe,

vielen Dank für deine Antwort. Ich werden nun einfach pro Spalte ein eigenes Array anlegen, das ist für mich einfacher und übersichtlicher. So bastele ich mir quasi mein eigenes mehrdimensionales Array zusammen. Im Beispiel habe ich in der Spalte A einfach die Zahlen 1,2,3,4, ... und in ...

Hallo zusammen,

ich habe zwischenzeitlich etwas herumgebastelt und habe herausgefunden, wie ich die Daten richtig abfrage.
Aber wie übergebe ich die Daten richtig an das Ausgabe-Array, damit dieses mittels setDataArray an eine Calc-Tabelle übergeben werden kann?
Das Daten-Array (oData), in das die ...

Hallo zusammen,

ich habe den Code nun noch etwas optimiert. Ich habe festgestellt, dass es auch ohne Global funktioniert.
Ich habe aber noch zwei Fragen:

a) Mit den Zeilen
x = oData(r)
Ergebnis=x(0)
werden die Daten aus dem Array gelöst.
Wenn ich direkt
Ergebnis=oData(r)
schreibe und dann mit ...

Hi Jürgen,

super! Vielen Dank, ich denke jetzt komm ich weiter. Ich habe

Ausgabe(r)=BerechneterWert

statt

Ausgabe(r) = Array(BerechneterWert)

verwendet. Daran lag's wohl.

Viele Grüße

Lupo

Hi Lupo,

Was habe ich falsch gemacht?

Dein "oRange.setDataArray( Ausgabe ())"
ist kein Array ...

Hallo Jürgen,

ich bin soweit gekommen, dass ich mit den eingelesenen Daten weiterrechnen und die Ergebnisse in einem neuen Ausgabe-Array ablegen kann.
Die Arrays habe ich zunächst eindimensional und die Anzahl der Array-Werte der Einfachheit halber beide mit 5 gewählt. Später werde ich jedoch mit ...

Hallo Kai,

in OpenOffice sind die Makros, anders als bei Excel VBA, nicht mit einem Tabellenblatt verknüpft. Wenn du ein Makro in einem bestimmten Tabellenblatt oder von einem bestimmten Button aus starten möchtest, so muss man den Code entsprechend zuordnen.

Wenn du daher einfach mit Cells() oder ...

Hi Jürgen,

ich hab gerade mal ein bisschen mit deinem Code etwas ausprobiert und ich glaube, dass ich so weiterkomme.
Das war ne gute Idee, die beiden Codeteile voneinander zu trennen und die Verbindung über Global zu halten.

Super, vielen Dank!

Lupo

Hi Lupo,

versuche mal folgenden Code ...

Hallo zusammen,

ich bin dabei, ein Zinsstaffelprogramm zu schreiben. Dies funktioniert auch soweit. Da ich allerdings bei jeder Buchung das Ergebnis sofort in das Tabellenblatt mit dem Ergebnis schreibe, dauert die Berechnung sehr lange. Ich habe nun den Tipp erhalten, mit get data array und set ...

Hi Stephan,

ich bekam zunächst noch den gleichen Fehler.

args muss als String deklariert werden. Dann klappt's.

Vielen Dank nochmal.

Lupo

Vielen Dank für die schnelle Antwort!
Das ist echt ein klasse Forum hier.

OpenOffice macht mir immer mehr Spaß, schade dass wir es (noch) nicht auf der Arbeit nutzen ...

Viele Grüße

Lupo

Hallo zusammen,

ich möchte in ooBasic gerne die Calc-Funktion Tage360 verwenden.

Dazu habe ich folgende Funktion programmiert:

Function Tage30(Datum1, Datum2) as Integer
oFunctionAccess = createUnoService( "com.sun.star.sheet.FunctionAccess" )
Dim args(1) as Date
args(0) = Datum1
args(1 ...

Hallo zusammen,

ich habe einen KeyHandler und einen SelectionChangeListener in meinem Programm verwendet.
Beide sollen aber nur auf Tabelle 1 ansprechen.

Momentan erreiche ich das durch die Verbindung der Abfrage des aktuellen Tabellenblattes mit einer If-Anweisung.

Gibt es auch die Möglichkeit ...