Combobox - Eingabe-Vorschlag - x'te Stelle

Hallo,
...Frage:
Wie kann man es lösen, dass ich in einer Combobox (gefüllt über eine RowSource-Zuweisung per Code) folgendes erreichen kann:
Inhalt der Combobox z.B. "Autohaus Müller" / "Autohaus Schmidt" / "Autohof Lehmann" / "Auto-Werkstatt Müller" etc.
Nun soll der User in der Userform den Kunden aussuchen aus der Combobox ... derzeit ist es so eingestellt, dass mit dem ersten Buchstaben ein Vorschlag von der Combobox erscheint. Aber - nur wenn der User auch wirklich vorn beginnt, d.h. mit "Autohaus...".
Jetzt ist es aber oftmals der Fall, dass sich auch Kunden sich nicht mit Ihrem vollen Firmen Namen melden, sondern z.B.: "Werkstatt Müller..." ... gibt dies nun der ADM ein, findet er die "Auto-Werkstatt Müller" nicht. Da er eben nicht mit "Auto-" in der Eingabe anfing. (Bei über 2500 Einträgen sucht er nun auch nicht wirklich und legt. ggf. den Kunden erneut an unter "Werkstatt Müller"...und das will ich nicht !!!!
Wie kann ich es also lösen, dass eine Combobox z.B. bei Eingabe "Müller" - sich aufklappt und alle Einträge mit "Müller" an irgendeiner Stelle im Namen anzeigt ?
Geht das überhaupt ?
Gruß und super vielen Dank bereits an dieser Stelle für Eure Unterstützung !
Kay

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub ComboBox1_Change() ComboBox1.List = fncListe(ComboBox1.Value) ComboBox1.DropDown End Sub Private Sub UserForm_Activate() ComboBox1.List = fncListe End Sub Function fncListe(Optional sText As String) Dim arrTmp, n As Integer, i As Integer, arrListe() arrTmp = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp)) 'Listenbereich ReDim arrListe(1 To UBound(arrTmp)) 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 End Function

Hallo Rudi,
...ja und nein, ja ich lerne dazu und mir war auch die Fehlermeldung 70 (dank Deiner Hilfe vor ca. 2 Wochen) bekannt, wollte es auch mit der "RowSource ="""-Methode lösen. Jedoch habe ich das Problem, das ich 2 verschiedene Datenbereiche einlese - je nach Situation (und Funktionswahl in der Userform, d.h. Standard ist Dabenbereich 1 und bei NEU-Anlegen eines Datensatzes, wechselt die Combobox den Inhalt auf Datenbereich2 - Kundendatensätze). Und sobald ich die RowSource auf "" setzte - funktionierte es nicht mehr richtig - die Datenbereiche wurden nicht sauber ausgelesen, bzw. falsch zugewiesen...darin lag mein Problem...
Wie ich auch schrieb, wollte ich nun versuchen mit dem "gelerntem" hier selbst eine Lösung zu finden, Was ich nun auch fand - siehe Musterdatei.
https://www.herber.de/bbs/user/64089.xls
Einziger Punkt, der mich noch beschäftigte hatte war:
Beispiel: Datenbereich1 - eingabe von "werkstatt" - wird nur Werkstatt Lehmann angezeigt, aber mit einem *vor Werkstatt - erscheint auch "Autowerkstatt Gerd Müller"... Dann kam ich auch hier drauf - MatchEnrty-Eingenschaft der Combobox war noch auf 0 eingestellt. Mit dem Wert 2 - funktioniert es perfekt.
Vielen Dank für Deine Hilfe und Verständnis!
Lieben Gruß
Kay

Beliebteste Forumthreads (12 Monate)

Combobox - Eingabe-Vorschlag - x'te Stelle

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Combobox - Eingabe-Vorschlag - x'te Stelle

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread