2 comboboxen füllen aus tabelle
22.01.2005 20:50:35
roland_k
habe combobox1 und combobox2 die solen beide gleiche daten haben aus ner tabelle
wenn ich den code laufen lasse ist combobox1 gefuellt aber die zweite nicht ?
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 = 3 To iMax
.AddItem Worksheets("daten").Cells(i, 2)
Next i
End With
With frm.ComboBox2
.Clear
iMax = ActiveSheet.UsedRange.Rows.Count
For i = 3 To iMax
.AddItem Worksheets("daten").Cells(i, 2)
Next i
End With
Application.ScreenUpdating = True
End Sub
kein dunst wo ich da fehler habe ?
wenn das ding lauft muesste man doch auch die schleife in ner zeiten laufen lassen koennen ?
macht sich jemand die muehe das rausfinden
danke im voraus
gruss roland