OpenOffice.info

Hi eBayer,
hi Gino,

danke für die schnellen Antworten. [b]Beide [/b]Lösungen sind super und funktionieren auf Anhieb.
Nochmal vielen Dank.

	LB = myDialog.getControl("ListBox1")
	Anzahl = LB.ItemCount
	for i = 0 to Anzahl -1
	sEintrag = LB.Items(i)
	sEintraege = sEintraege & sEintrag & " "
	next
	msgbox sEintraege

Hallo DaWolf,

[code] LB = myDialog.getControl("ListBox1")
Anzahl = LB.ItemCount
for i = 0 to Anzahl -1
sEintrag = LB.Items(i)
sEintraege = sEintraege & sEintrag & " "
next
msgbox sEintraege[/code]

Gino

Schau mal hier nach: http://www.dannenhoefer.de/faqstarbasic/index.html
Da findest Du jede Menge..... ich bin auch ein begeisterter Benutzer dieser informativen Sammlung.

Die folgenden Codefragmente aus der o.g. Adresse kopiert, sollten Dein Problem lösen.
Gruß eBayer

Gibt eine Liste mit allen Einträgen zurück.

Dim Ergebnis()
Ergebnis() = myCtrl.model.StringItemList()
for i=0 to ubound(Ergebnis())
msgbox Ergebnis(i)
next i

Auch auf dieses Array kann man direkt zugreifen.

for i=0 to ubound(myCtrl.model.StringItemList())
msgbox myctrl.model.StringItemList(i)
next i

Hallo Leute,

ich hoffe, dass mir jemand helfen kann bei meinem Problem. Ich suche nach einer einfachen Lösung:

Alle Werte einer Listbox (Dialog) sollen per Macro an eine Textmarke in Write übergeben werden.
Dabei ist es völlig egal, ob ein Wert der Listbox selektiert wurde oder nicht. Es sollen einfach ALLE Werte übergeben werden z.B. als String.

Ich finde leider nirgends einen Lösungsansatz.
Vielen Dank schon im voraus!