OpenOffice.info

Stephan hat geschrieben: Fr, 12.01.2018 15:58 ...bei einem Makro bleiben und sofern das Makro automatisch gestartet werden soll...dem EReignis "Dokument aktivieren" des odt-Dokuments zu ordnen...

So funktioniert es wie erwartet. Vielen Dank!

Jetzt versuche ich die Geschichte als Funktion zu kapseln und dem entsprechenden Feld zuzuordnen, für alle Fälle hab ich eine einfache HALLOWELT() Funktion erstellt.


REM ***** BASIC *****

Sub Main
With ThisComponent.getEmbeddedObjects
.getByName("Objekt4").getEmbeddedObject.Sheets().getByName ...

Stephan hat geschrieben: Fr, 12.01.2018 12:39 hier der ursprüngliche Code in die Testdatei integriert

Danke, damit komme ich tatsächlich erstmal weiter

Sorry, aber entweder Du stellst die Datei zur Verfügung oder hier ist leider Schluss.
Es ist Unsinn das wir hier im Forum per Blindflug Deinen Code debuggen sollen, denn um vernünftig debuggen zu können muss man selber alles vor Augen haben.... Sorry Stephan, ich habe oben eine Test Datei zur ...

...
ich würde zu debuggen statt des ...
in den Code schreiben:

Msgbox .dbg_properties



REM ***** BASIC *****

Sub Main
With ThisComponent
With .getEmbeddedObjects
With .getByName("tblDusche")
With .getEmbeddedObject()
With .Sheets()
With .getByName("Tabelle1")
With ...

...Also wirst Du den Code schon so schreiben müssen wie das richtig ist, nämlich...
Ok, da ich schon schrieb, keine BASIC-Erfahrungen zu haben, hab ich da eben was durcheinander gebracht... Ich dachte der Punkt gilt auch über Zeilen als Verkettung. Wegen besserer Übersicht habe das dann so ...

Der nachfolgende Code ist auch nur ein Rudiment ..., aber so muss es prinzipiell aussehen...

Danke erstmal. Ich kenne mich mit Basic nicht aus, deshalb brauche ich Gehhilfe...

Also, ich habe deinen Code mal angepasst nach meinen Bedürfnissen, BASIC gibt Fehler: Methode nicht gefunden: getByName ...

z.B.:
...
Gruß
Stephan

Also ich versuche das so nachzubauen, ohne Erfolg

REM ***** BASIC *****

Sub Main
With ThisComponent
.getEmbeddedObjects
.getByName("tblIdent")
.getCellRangeByName("A1")
.Value
End With
End Sub

Antwort
aus sicherheitsgründen ist dieses makro nicht ausführbar ...

Hallo,

in einem writer-Dokument habe ich verschiedene calc-Objekte als OLE eingebunden. Eine Tabelle beinhaltet alle Summen aus den einzelnen Tabellen. Wie kann ich auf die anderen Tabellen zugreifen, damit die Summe automatisch eingesetzt wird?

Ein Beispiel im Anhang