mehrere ListBoxen dynamisch ansprechen
26.10.2008 18:42:06
Daniel
ich möchte gerne aus einer Sub-Prozedur an eine andere Sub-Prozedur verschiedene Parameter
übergeben.
Je nachdem ob der Prameter eine 1,2 oder 3 ist, soll auf einem bestimmten Tabellenblatt eine
zugeordnete ListBox mit Werten aus einem Array gefüllt werden.
1. Frage benutze ich eine Sub-Prozedur oder eine Funktion die zu diesem Zweck von der
Hauptprozedur aufgerufen wird?
2. Wie kann ich den With Part in meiner Prozedur so gestalten, dass die Listboxen von 1 bis 3
dynamisch angesprochen werden und nicht nur ListBox1?
Vielen Dank
Daniel
Sub abcd()
makeDialogue ar, arr, 3
End Sub
Sub makeDialogue(x As Variant, y As Variant, z As Byte)
Dim i As Variant
Dim v As Variant
Dim ListBox(3) As ListBox
With ActiveWorkbook.Worksheets(3).ListBox1
.Clear
For i = 1 To x
.AddItem y(i, 1, 1)
Next i
End With
End Sub