Nur Texte und keine Zahlen in ComboBox
22.09.2006 19:44:30
Josef
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