[GELÖST] Listbox - nach Auswahl schließen

[rob41]

Hallo,
ich habe eine kurze Frage, wie schließe ich meine Listbox nach Auswahl ?

Code: Alles auswählen

	GLOBAL VAEL
Sub list_Changed(e)
	VAEL = e.Source.getSelectedItem()
End Sub
Sub chge_Art
	ListBoxFuellen
End Sub
Sub ListBoxFuellen
	oDialog1 = CreateUnoDialog(DialogLibraries.Standard.Dialog1)
	sht_adm = ThisComponent.Sheets.getByName("adm")
    oCellRangeSource = sht_adm.getCellRangeByName("$B14:$B29")
    aSourceDataArray() = oCellRangeSource.getDataArray()
       
    Dim aSource(UBound(aSourceDataArray())) As String
    For I = LBound(aSource()) To UBound(aSource())
       aDataArrayRow()   = aSourceDataArray(I)
       aSource(I) = aDataArrayRow(0)
    Next I
    oDialog1.Model.getByName("ListBox1").StringItemList = aSource()
	oDialog1.execute()
End Sub

Danke!
Gruß, Rob

[F3K Total]

Hallo Rob,
was genau möchtest Du tun? Die Listbox verschwinden lassen oder den Dialog schliessen?

Gruß R

[rob41]

Hallo F3K Total,

danke für Deine Unterstützung und Nachfrage!
Ich will den Dialog schließen.
Ich hab s gefunden:

Code: Alles auswählen

oDialog1.EndExecute()

Gruß, Rob