Beim Anklicken der ComboBox werden nur Texte in die Combobox eingelesen. Es sollten aber nur Zahlen eingelesen werden. Wieso werden mit untenstehendem Code bitte keine Zahlen eingelesen?
Private Sub CboWord_Enter()
Dim aRow, iRow As Long
Dim col As New Collection
cboWord.Clear
aRow = IIf(IsEmpty(Workbooks("Abteilungsablage.xla").Worksheets("Word").Range("A65536")), Workbooks("Abteilungsablage.xla").Worksheets("Word").Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 1 To aRow
col.Add Cells(iRow, 1), Workbooks("Abteilungsablage.xla").Worksheets("Word").Cells(iRow, 1)
If Err = 0 Then
cboWord.AddItem Workbooks("Abteilungsablage.xla").Worksheets("Word").Cells(iRow, 1)
Else
Err.Clear
End If
Next iRow
On Error GoTo 0
End Sub
Danke
Josef