Office: Doppelte Einträge in einer ComboBox verhindern

Hallo Liebe Leute,

ich hoffe ihr könnte mir bei meinem Problem helfen.

Ich habe eine Userform mit 2 Comboboxen. Diese sollen auf Tabelle1 zugreifen. Combobox 1 auf Spalte A, Combobox 2 auf Spalte B.
Spalte B ist abhängig von der Auswahl von Combobox 1.

Soweit so gut. Das habe mit Hilfe eines Beitrags aus dem Forum hinbekommen mein Problem besteht jetzt darin, dass in Spalte A doppelte Einträge vorhanden sind in dem Beispiel unten Kunde 1 und 3, diese sollen aber nur einmal in ComboBox1 angezeigt werden.

Als Beispiel:

SpalteA SpalteB
Kunde1 Teil1
Kunde2 Teil2
Kunde3 Teil3
Kunde1 Teil4
Kunde3 Teil5

Gibt es eine Möglichkeit das irgendwie Hinzubekommen?

Anbei mein bisher erstellter Code

Private Sub ComboBox2_Enter()
Dim intZeile As Integer
Dim Variable As String

ComboBox2.Clear

With Sheets("Tabelle1")
For intZeile = 2 To .UsedRange.Rows.Count
If .Cells(intZeile, 1) = ComboBox1 Then
ComboBox2.AddItem .Cells(intZeile, 2).Value
Else
End If
Next intZeile
End With
End Sub

Private Sub cmdOK_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()

Dim intZeile As Integer
Dim intZeile2 As Integer

With Sheets("Tabelle1")
For intZeile = 1 To .UsedRange.Rows.Count
ComboBox1.AddItem .Cells(intZeile, 1).Value
Next intZeile
End With
End Sub

:)

 

Moin, Basti256,

die Tabellenfunktion Zählenwenn für den Bereich zu verwenden und nur beim ersten Vorkommen den Wert aufzunehmen:

Code:

 

Guten Abend,

genau das habe ich gesucht.

Danke schön....