kann mir jemand beim folgendem Problem helfen?
Ich möchte eine ComboBox füllen, ohne doppelte Einträge mit aufzunehmen. Meine Datenquelle ist das Worksheet Sheet1 Spalte B. Einige der Wörter kommen mehrfach in der Spalte vor. Die ComboBox soll allerdings jedes vorhandene Wort nur ein Mal zur Auswahl zur Verfügung stellen.
Folgender Code war leider erfolglos:
Private Sub UserForm_Initialize()
Dim row, entries As Integer
'counts number of entries
entries = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).row - 2
'fills combo box
For row = 3 To entries + 2 Step 1
ComboBox1.AddItem Worksheets("Sheet1").Cells(row, 2).Text
ComboBox1.MatchEntry = fmMatchEntryComplete
If ComboBox1.MatchFound = True Then
'Debug.Print Worksheets("List").Cells(row, 2).Text
ComboBox1.RemoveItem Worksheets("Sheet1").Cells(row, 2).Text
End If
Next
End Sub
Warum funktioniert es damit nicht? Und wie kann ich es lösen?
Vielen Dank im voraus!
Laurette