ich will zewi Comboboxen mit Daten aus der Spalte D (4) und N (14) füllen. Wen ich NUR die Spalte D einlesen will, funktioniert das noch, sobald ich aber die Spalte 14 (N) auch mit auslesen will, bekome ich eine Fehlermldung (ListIndex konnte nicht gesetzt werden)
Kann jemand sehen, warum ? hier mal der Code.
Mandy
'C_Verein Orte einlesen
Dim col As New Collection
Dim iRow As Integer
iRow = 4
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 4))
col.Add Cells(iRow, 4), Cells(iRow, 4)
If Err = 0 Then
C_Verein.AddItem Cells(iRow, 4)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
C_Verein.ListIndex = 0
'T_Ort einlesen
iRow = 14
On Error Resume Next
Do Until IsEmpty(Cells(iRow, 14))
col.Add Cells(iRow, 14), Cells(iRow, 14)
If Err = 0 Then
T_Ort.AddItem Cells(iRow, 14)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
T_Ort.ListIndex = 0