nochmal code verkürzen
27.08.2004 23:34:17
Erich
wie kann ich den nachfolgenden code verkürzen?
Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = UserForm1
With frm.ComboBox1
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 2 To iMax
.AddItem Worksheets("System").Cells(i, 1)
Next i
End With
End Sub
es sind insgesamt 90 comboboxen alle mit den gleichen werten geladen weden sollen.
kann mir jemand weiter helfen?
gruß
erich