|
Moin zusammen,
ich habe folgendes Problem:
Ich hab in Excel eine Userform. Hier sind zwei Comboboxen enthalten. Combobox1 (cb_kunde_1) ist mit Kundennamen (ohne Duplikate) aus der Datentabelle gefüllt. Combobox2 (cb_PO_1) ist beim Öffnen der Userform mit allen Auftragsnummern aus der Datentabelle gefüllt (auch keine Duplikate). Wenn ich nun in Combobox1 einen Kunden auswähle, möchte ich, dass er mir nur noch die Auftragsnummern anzeigt, die zu dem Kunden gehören.
Das klappt auch soweit. Nur zeigt er mir leider auch die doppelten Werte an. Wie schaffe ich es, dass die Duplikate nicht mit in die Combobox geschrieben werden?
Hier mal der Code:
Sub cb_kunde_1_Change()
Dim rng As Range, strFirst As String
Dim Kunde As String
cb_PO_1.Clear
Kunde = cb_kunde_1.Value
With Sheets("PO")
Set rng = .Columns(5).Find(What:=Kunde, LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=False, After:=Range("E1"))
If Not rng Is Nothing Then
strFirst = rng.Address
Do
cb_PO_1.AddItem .Cells(rng.Row, 4)
Set rng = .Columns(5).FindNext(rng)
Loop While Not rng Is Nothing And strFirst <> rng.Address
End If
End With
End Sub
Vielen Dank schon einmal vorab für eure Hilfe!
Beste Grüße, Frederik
|