In die cboNamen6 wird der Wert ordnungsgemäß eingelesen.
Normalerweise sollten jetzt die Werte aus der Spalte C (Format Datum) in Abhängigkeit der Spalte B in die cboNamen6 eingelesen werden. Das Datum wird nicht eingelesen. Wenn ich jedoch statt des Datums einen Text schreibe, so werden die Daten richtig in die cboNamen6 eingelesen. wo habe ich hier bitte den Fehler?
Danke
Josef
Private Sub cboNamen5_Enter()
Dim aRow, iRow As Long
Dim wks As Worksheet
Set wks = Workbooks("Kopie von Abteilungsablage VIII.xls").Worksheets("Jänner")
Dim col As New Collection
cboNamen5.Clear
'cboNamen3.Clear
aRow = IIf(IsEmpty(wks.Range("A65536")), wks.Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 2 To aRow
With wks
If .Cells(iRow, 2) = cboNamen6 Then
col.Add wks.Cells(iRow, 1), wks.Cells(iRow, 3)
If Err = 0 Then
cboNamen5.AddItem .Cells(iRow, 3)
Else
Err.Clear
End If
End If
End With
Next iRow
On Error GoTo 0
'Call Sortieren_CboN5
End Sub