Dialog: Listbox mit variblem Array befüllen.

[komma4]

alle Werte vom niedrigstem bis hin zum höchstem in die Listbox eingetragen werden?

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:

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 Sub

Passe den Namen Deiner Zelle mit dem Maximalwert an!
Das sollte funktionieren (ungetestet!)