Combo+Listbox
25.05.2005 08:32:23
Richard
hab eine Frage, und zwar wie kann ich den folgenden Code kürzer schreiben?
Es ist immer die gleiche Kopfzeile, nur die Spalten sind unterschiedlich.
Private Sub UserForm_Initialize()
Dim i As Integer
With Me.ComboBox1
.AddItem Cells(1, 14)
.AddItem Cells(1, 15)
.ListIndex = 0
End With
With Me.ListBox1
.AddItem Cells(1, 28)
.AddItem Cells(1, 29)
.AddItem Cells(1, 30)
.AddItem Cells(1, 31)
.AddItem Cells(1, 32)
.AddItem Cells(1, 33)
.AddItem Cells(1, 56)
.AddItem Cells(1, 57)
.AddItem Cells(1, 70)
.AddItem Cells(1, 71)
.AddItem Cells(1, 86)
.AddItem Cells(1, 87)
.AddItem Cells(1, 88)
.AddItem Cells(1, 89)
.AddItem Cells(1, 90)
.AddItem Cells(1, 91)
.AddItem Cells(1, 110)
.AddItem Cells(1, 111)
.AddItem Cells(1, 112)
.AddItem Cells(1, 113)
.AddItem Cells(1, 114)
.AddItem Cells(1, 115)
.AddItem Cells(1, 138)
.AddItem Cells(1, 139)
.AddItem Cells(1, 152)
.AddItem Cells(1, 153)
.AddItem Cells(1, 168)
.AddItem Cells(1, 169)
.AddItem Cells(1, 170)
.AddItem Cells(1, 171)
.AddItem Cells(1, 172)
.AddItem Cells(1, 173)
.AddItem Cells(1, 192)
.AddItem Cells(1, 193)
.AddItem Cells(1, 208)
.AddItem Cells(1, 209)
.ListIndex = 0
End With
End Sub
wäre dankbar für eure Antworten
gruß
Anzeige