ComboBox ohne doppelte Namen füllen!
11.01.2005 13:44:56
Oliver
ich habe wieder mal ein für mich unlösbares Problem. Ich habe zwei ComboBoxen. ComboBox1 wird mit Ländernamen aus Tabellenblatt Daten und dort Spalte D gefüllt. Wenn ich in ComboBox1 eine Nation wähle möchte ich, dass die zweite ComboBox mit den Namen (Die Namen stehen in Tabellenblatt Daten in Spalte B), die zu den Nationen gehören, gefüllt wird. Allerdings kommen in einzelnen Nationen Namen doppelt vor, die ich aber nicht in der ComboBox2 mit angezeigt bekommen möchte. Wie stelle ich das an? Ich habe schon in der Recherche ausgiebigst gesucht, bin aber nicht fündig geworden. Das einzige, was ich gefunden habe ist der folgende Code von Hans Herber:
Private Sub ComboBox3_DropButtonClick()
Dim col As New Collection
Dim iRow As Integer
ComboBox3.Clear
Zeile = 2
On Error Resume Next
Do Until IsEmpty(Sheets("Daten").Cells(iRow, 4))
col.Add Sheets("Daten").Cells(Zeile, 2), Sheets("Daten").Cells(iRow, 4)
If Err = 0 Then
ComboBox3.AddItem Sheets("Daten").Cells(iRow, 4)
Else
Err.Clear
End If
iRow = iRow + 1
Loop
On Error GoTo 0
ComboBox3.ListIndex = 0
End Sub
Der füllt ja schon mal bestens die ComboBox, allerdings werden keine doppelten Namen gefiltert. Kann mir jetzt eventuell noch jemand behilflich sein, dass mit dem obigen Code keine doppelten Namen in der ComboBox angezeigt werden?
Ich danke Euch schon mal,
Oliver