ich habe eine Excel-Tabelle mit Namen in Spalte C ab Zeile 14, die auch mehrfach vorkommen können.
Zum Beispiel:
Max Mustermann
Clara Musterfrau
Friedemann Liste
Max Mustermann
Max Mustermann
Ich habe unten stehenden Code gefunden, mit dem ich in einer Combobox eine automatische Wertergänzung in Echtzeit erhalte. Sehr praktisch!
Mein Problem: Mehrfachnennungen, wie Max Mustermann, werden entsprechend häufig vorgeschlagen.
Ich habe bereits versucht Lösungen anderer Combobox-Vorschläge zu integrieren, um Mehrfachnennungen zu umgehen. Die meisten sind aber für angelegte Listen, was hier nicht der Fall ist und es deshlab häufig nicht klappt. Insofern gestehe ich meine Unfähgikeit ein, Codes nicht nur zu kopieren sondern auch zu verstehen und bitte deshalb hier um Hilfe.
-> Wie verhindere ich Mehrfachnennungen in einer Combobox bei folgendem Code:
Private Sub ComboBox1_Change()
ComboBox1.List = fncListe(ComboBox1.Value)
ComboBox1.DropDown
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ComboBox1.List = fncListe
End Sub
Function fncListe(Optional sText As String)
Dim arrTmp, n As Integer, i As Integer, arrListe()
arrTmp = Range(Cells(14, 2), Cells(Rows.Count, 2).End(xlUp)) 'Listenbereich
ReDim arrListe(1 To UBound(arrTmp))
On Error Resume Next
For i = 1 To UBound(arrTmp)
If arrTmp(i, 1) Like "*" & sText & "*" Then
n = n + 1
arrListe(n) = arrTmp(i, 1)
End If
Next
ReDim Preserve arrListe(1 To n)
fncListe = arrListe
Dim a As Integer
End Function
Quelle: https://www.herber.de/forum/archiv/1096to1100/1098929_Combobox_EingabeVorschlag_xte_Stelle.htmlFehlende Angaben reiche ich gern nach.
Vielen Dank
Johannes
Windows 10