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

[DaWolf]

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!

[eBayer]

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

[Gino]

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

[DaWolf]

Hi eBayer,
hi Gino,

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