in einer UF ComboBox möchte ich Daten ohne doppelte und mit Bedingung einlesen
Zeile 1 = Titel ab Zeile 2 beginnen die Daten.
Der Datensatz in Zeile 2 wird nicht angezeigt obwohl die
Bedingungen erfüllt sind.
Alle andern werden angezeigt.
Danke!
Gruß
Ludmila
With wks
.Activate
Endrow = IIf(IsEmpty(.Range("AN65536")), .Range("AN65536").End(xlUp).Row, 65536)
'Endrow = .Cells(Rows.Count, 1).End(xlUp).Row 'funktioniert auch nicht
CBOAng1.Clear
For I = 1 To Endrow
If Not IsEmpty(.Cells(I, 40)) And .Cells(I, 47) = "nein" Then
col.Add Cells(I, 40), Cells(I, 40)
If Err = 0 Then
CBOAng1.AddItem Cells(I, 40)
Else
Err.Clear
End If
End If
Next I
On Error GoTo 0
CBOAng1.ListIndex = -1
End With