OpenOffice.info

[quote="foobar^2"]Du hast in deinem Beispiel einen kleinen Fehler drin.
Da steht BValue2. Sollte sicher ohne "B" sein :)[/quote]

hallo,

natürlich hast du recht, ich schiebe das mal auf die uhrzeit des posts ;-)
lg

Sub GettinValues() 
	Dim oDoc As Object
	Dim TextTables As Object
	Dim Table As Object
	Dim CellName
	
 'Getting entries for building file name
	oDoc = ThisComponent

	oDocView = oDoc.getCurrentController()
	oForm = oDoc.drawpage.forms(0)
	oFeld = oForm.getByName("place")               'Name der Listbox
	Value1 = oFeld.CurrentValue                         'Aktueller Wert

'Werte aus Tabellenzellen
	TextTables = oDoc.getTextTables().getbyName("Tabelle1")     'Name der Tabelle
   Table = TextTables()
   CellName = Table.getCellbyName("A1")                                            'Tabellenzelle
   Value2 = CellName.getString()                                                       'Inhalt derTabellenzelle
   CellName = Table.getCellbyName("B2")
   Value3 = CellName.getString()


CellValue =   Value1 & "_" &  Value2 & "_" &  Value3

end sub

Hallo,

kalter Kaffee und ne Zigarette haben doch ihren Zweck erfüllt.
Damit die Nachwelt auch etwas davon hat hier der komplette, funktionstüchtige Code: (ich habe dies für eine Listbox erstellt, die eine multiple Auswahl nicht zulässt)
Zusätzlich noch Werte aus einer Tabellenzelle.

[code]
Sub GettinValues()
Dim oDoc As Object
Dim TextTables As Object
Dim Table As Object
Dim CellName

'Getting entries for building file name
oDoc = ThisComponent

oDocView = oDoc.getCurrentController()
oForm = oDoc.drawpage.forms(0)
oFeld = oForm.getByName("place") 'Name der Listbox
Value1 = oFeld.CurrentValue 'Aktueller Wert

'Werte aus Tabellenzellen
TextTables = oDoc.getTextTables().getbyName("Tabelle1") 'Name der Tabelle
Table = TextTables()
CellName = Table.getCellbyName("A1") 'Tabellenzelle
Value2 = CellName.getString() 'Inhalt derTabellenzelle
CellName = Table.getCellbyName("B2")
Value3 = CellName.getString()


CellValue = Value1 & "_" & Value2 & "_" & Value3

end sub
[/code]

lg Stefan

Hallo,

ich habe wieder mal ein kleines Problem, wo ich auch jetzt nach Stunden nicht dahinter komme:

In einem Writer Dokument habe ich unter anderem eine Listbox (Name="place"), wo ich via Makro den aktuellen Wert (der Inhalt, nicht die Position) zur Weiterverwendung auslesen möchte (wird als Teil des Dateinamens bei einem Speichern-unter-Dialog).

Ich habe viele Beispiele gefunden, jedoch beziehen sich diese alle auf Base-Forumulare, Calc oder Dialoge, ich habe kein (funktionierendes) Beispiel gefunden für meine Problemstellung.

Danke im Vorhinein,
lg Stefan