bubblejet hat geschrieben: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!)
[quote="bubblejet"]alle Werte vom niedrigstem bis hin zum höchstem in die Listbox eingetragen werden?[/quote]
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]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[/code]
Passe den Namen Deiner Zelle mit dem Maximalwert an!
Das sollte funktionieren (ungetestet!)