OpenOffice.info

Verfasst: **Mi, 29.04.2009 14:39**

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!

Verfasst: **Mi, 29.04.2009 15:15**

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

Verfasst: **Mi, 29.04.2009 15:15**

Hallo DaWolf,

Code: Alles auswählen

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

Gino

Verfasst: **Mi, 29.04.2009 15:36**

Hi eBayer,
hi Gino,

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

OpenOffice.info

ALLE Werte einer Listbox an Textmarke übergeben [gelöst]

ALLE Werte einer Listbox an Textmarke übergeben [gelöst]

Re: ALLE Werte einer Listbox an Textmarke/Write übergeben

Re: ALLE Werte einer Listbox an Textmarke/Write übergeben

Re: ALLE Werte einer Listbox an Textmarke/Write übergeben