combobox mit schleife füllen
23.01.2005 13:37:15
roland_k
habe auf einer userform 4 comboboxen:
es sollen alle 4 den gleichen inhalt laden aus ner tabelle "daten"
diese werden mit dem code:
Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Set frm = UserForm2
Application.ScreenUpdating = False
With frm.ComboBox1
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 4 To iMax
.AddItem Worksheets("daten").Cells(i, 2)
Next i
End With
Application.ScreenUpdating = True
End Sub
gefuellt...................................................
nunn wollte ich ne aüssere schleife machen mit folgenden code:
Private Sub UserForm_Initialize()
Dim frm As UserForm
Dim i As Integer
Dim iMax As Integer
Dim j As Integer
For j = 1 To 4
Set frm = UserForm2
Application.ScreenUpdating = False
With frm.ComboBox.Index = j @@@@@@@@@@@@@@@@hier stoppt der code!!!
was mmuss hier eingeben ?
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 4 To iMax
.AddItem Worksheets("daten").Cells(i, 2)
Next i
End With
Next j
Application.ScreenUpdating = True
End Sub
vielen dank fuer die muehe
gruss roland