ich habe da mal wieder ein Problem.
Also ich habe ein Listbox und darüber eine Combobox.
In der Listbox werden Werte aus einer Tabelle ( ist eine Arbeitszeitentabelle ) angezeigt, vorne der Name und dahinter immer die Werte. Soweit so gut.
Jetzt kann ich in der Combobox einen Namen auswählen und in der Listbox werden dann nur die Daten der gewählten Person angezeigt.
Jetzt zum Problem : In der Combobox taucht ein Name dann durchaus doppelt auf weil er ja auch in der Tabelle mehrfach erscheint. Gibt es eine Möglichkeit das in der Combobox die Daten so gefiltert werden das eine Name in der Combobox immer nur einmal auftaucht ?
Private Sub ComboBox1_Change() ' Auswahl Mitarbeiter
Dim zeile As Long, i As Long, j As Integer, arrdata()
LISTE_LADEN_UND_INITIALISIEREN
ReDim arrdata(1 To ListBox1.ListCount, 1 To ListBox1.ColumnCount)
For i = 1 To ListBox1.ListCount
For j = 1 To 10
arrdata(i, j) = ListBox1.List(i - 1, j - 1)
Next j
Next i
ListBox1.Clear
ListBox1.List = arrdata
For zeile = ListBox1.ListCount - 1 To 0 Step -1
With ListBox1
If .List(zeile, 1) Like "*" & ComboBox1 & "*" Then
Else
ListBox1.RemoveItem (zeile)
End If
End With
Next
End Sub