OpenOffice.info

aSelIndexListe = oContr.SelectedItems

aListe = oContr.StringItemList
aSelIndexListe = oContr.SelectedItems
for i = 0 to uBound(aSelIndexListe)
    s = s & i & ": " & aListe(aSelIndexListe(i)) & chr(13)
next
msgbox s

Hey SamSept,

[quote="samsept"]eigentlich will ich nur wissen wie ich an die indexe der markierten items in einer listbox rankomme.[/quote]

Ich denke, du solltest dir doch mal entsprechende Literatur zulegen - falls du noch mehr programmieren willst. Das VBA Wissen hilft dir bei OOo wenig.

Über
[code]aSelIndexListe = oContr.SelectedItems[/code]
erhälst du eine Liste(Array) aller ausgewählten (markierten) Einträge, und zwar der Indices. Übwer die Itemliste und die IndexListe kannst du dann bequem alle gewählten Inhalte auslesen - falls du die brauchst. Aus dem Kopf:
[code]aListe = oContr.StringItemList
aSelIndexListe = oContr.SelectedItems
for i = 0 to uBound(aSelIndexListe)
s = s & i & ": " & aListe(aSelIndexListe(i)) & chr(13)
next
msgbox s
[/code]

Viele Grüße
Thomas

aListe = oContr.StringItemList 
n = UBound(aListe())
redim preserve aListe(n + 1)
aListe (n+1) = "vier"
oContr.StringItemList = aListe

Hey SamSept,

[quote="SamSept"]Wie kann ich, wenn schon etwas in der ListBox steht und stehen bleiben soll, noch weitere Items hinzufügen.[/quote]

Indem du den Array zuerst ausliest, dann änderst und schliesslich wieder zuweist. Also in der Art:
[code]
aListe = oContr.StringItemList
n = UBound(aListe())
redim preserve aListe(n + 1)
aListe (n+1) = "vier"
oContr.StringItemList = aListe
[/code]

Und den Rest: Na, indem du das Programmierst. Ich verstehe den zweiten Teil deiner Frage nicht. Du markierst etwas, der Button löst ein Makro aus, das wertet die markierten Einträge aus und schreibt sie in die gewünschten Zellen. Wo ist das Problem?

Gruss
Thomas

Sub ListBox_fuellen
odoc=thisComponent
oSheet=odoc.sheets(0)
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr=form1.getbyname("ListBox")
aListe = array("eins", "zwei", "drei")
oContr.StringItemList = aListe()
End Sub

Hi SamSept,

versuche es mal hiermit:[code]Sub ListBox_fuellen
odoc=thisComponent
oSheet=odoc.sheets(0)
odraw1=oSheet.drawpage
form1=odraw1.forms.getbyIndex(0)
oContr=form1.getbyname("ListBox")
aListe = array("eins", "zwei", "drei")
oContr.StringItemList = aListe()
End Sub[/code]

Viel Erfolg.

Jürgen