Bestimmte Werte in ComboBox einlesen lassen
24.11.2008 16:03:48
Josef
Mit folgendem Code werden von allen Datensätzen die Werte aus der Spalte E (5) nur einmal eingelesen, auch wenn die Werte öfers vorkommen.
Wie und wo müßte ich bitte den Code verändern wenn ich nur die Werte "Ostvertrag" und "Heilbehelfe und Hilfsmittel" einlesen lassen möchte und die anderen Datensätze ausser Acht lassen möchte.
Private Sub cboNamen6_Enter()
Dim aRow, iRow As Long
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
Dim col As New Collection
cboNamen6.Clear
cboNamen5.Clear
cboNamen3.Clear
'cboNamen3.Text = ""
aRow = IIf(IsEmpty(wks.Range("A65536")), wks.Range("A65536").End(xlUp).Row, 65536)
On Error Resume Next
For iRow = 3 To aRow
With wks
col.Add wks.Cells(iRow, 1), wks.Cells(iRow, 5)
If Err = 0 Then
cboNamen6.AddItem .Cells(iRow, 5)
Else
Err.Clear
End If
End With
Next iRow
On Error GoTo 0
'Call Sortieren_CboN5
End Sub
Danke
Josef
Anzeige