Re: Dialog: Listbox mit variblem Array befüllen.
Verfasst: Di, 03.04.2012 07:13
Für eine solche Aufgabe würde sich ein nummerisches Kontrollfeld, mit Werten von 1 bis 43 (oder was auch immer) anbieten... sei's drumm:bubblejet hat geschrieben:alle Werte vom niedrigstem bis hin zum höchstem in die Listbox eingetragen werden?
Code: Alles auswählen
Sub de52863
' 2012-04-03
oForm = DialogLibraries.Standard.Dialog
oDialog1 = CreateUnoDialog( oForm )
oSheet = ThisComponent.Sheets.GetByName( "Tabelle1" )
nWert = oSheet.getCellRangeByName( "B2" ).getValue()
DIM aSource( nWert - 1 )
For i = 0 To UBound( aSource() )
aSource( i ) = i + 1
Next i
oDialog1.Model.getByName( "ListBox1" ).StringItemList = aSource()
oDialog1.execute
End SubDas sollte funktionieren (ungetestet!)