Quellzellbereich bei Listenfeldern

[stbuerk]

Hallo OO-Experten,
in Calc kann man "per hand" bei einem Listenfeld im Entwurfsmodus mit der rechten Maustaste über das Register Daten einen Quellzellbereich angeben, also einen Verweis auf ein Zellefeld, dessen Einträge angezeigt werden sollen.

Mit welcher Eigenschaft oder Methode greife ich auf diesen Quellzellbereich zu, um ihn per Makro zu ändern?
Ich meine den echten Verweis, keine festen Strings.

Ich verwende OO 1.1

Stbuerk

[komma4]

Das

Code: Alles auswählen

Dim oLinkedCell as new com.sun.star.table.CellAddress
oLinkedCell.Sheet  = oSheet.RangeAddress.Sheet
oLinkedCell.Row    = 4  'Cell A5
oLinkedCell.Column = 0  'Cell A5
 
Dim oNamedValue as new com.sun.star.beans.NamedValue
oNamedValue.Name  = "BoundCell"
oNamedValue.Value = oLinkedCell

oCVB = oDoc.createInstance("com.sun.star.table.CellValueBinding")
oCVB.Initialize(Array(oNamedValue))
oCompComboBox.setValueBinding(oCVB)

habe ich im englischen Forum gefunden (http://www.oooforum.org/forum/viewtopic.phtml?t=55472)
HTH

[stbuerk]

Hallo Winfried,
danke für den Tipp.
Leider verstehe ich ihn nicht so ganz (Was steht denn in der Zelle A5?)
noch scheint er mit meinem OO 1.1 zu funktioniern, wie es ja auch in Deinem angegebenen englsichen Beitrag steht, denn
die Zeile

oCVB = ThisComponent.createInstance("com.sun.star.table.CellValueBinding")

führt bei mir zu einem Fehler.

Na ja, dann muss ich es eben von Hand eingeben.

Stbuerk