Combobox Eingabeprüfung
15.11.2015 14:16:34
Axel
trotz langer Suche nach einer Lösung komme ich nicht weiter.
Ich fülle ein Kombinationsfeld in einer Userform mit Daten aus der Spalte A der Tabelle.
Diese Daten (in der Originaltabelle sind das mehrere Hundert Einträge) sind durcheinander und mehrfach vorhanden. Mit Hilfe des Codes aus diesem Forum gelingt mir auch das Füllen des Kombinationsfeldes ohne Duplikate.
Option Explicit
Private Sub cmd_Close_Click()
Unload Me
Worksheets("Tabelle1").Cells(1, 1).Activate
End Sub
Private Sub UserForm_Initialize()
Dim objDic As Object
Dim IngZ As Long
Set objDic = CreateObject("Scripting.Dictionary")
For IngZ = 2 To Cells(Rows.Count, 1).End(xlUp).Row 'Spalte A (Testdaten)
objDic(Cells(IngZ, 1).Value) = 0
Next
Me.cbo_test.List = objDic.keys
'If cbo_test.Value = "" Then
' MsgBox "Keine Testdaten ausgewhlt !!!", vbInformation, "Hinweis ..."
'End If
frm_Test.cbo_test.ListIndex = -1
End Sub
Nun mein Problem. In den Eigenschaften des Kombinationsfeldes habe ich der "Style"- Eigenschaft den Wert "0-frmStyleDropDownCombo" zugewiesen, da ich gern die Möglichkeit nutzen möchte, auch ein "leeres" Kombinationsfeld für eine Eingabe zu haben.
Und das ist das eigentliche Problem. Es funktioniert auch, aber ich kann alles in das Kombinationsfeld eintippen was die Tastatur hergibt und die Liste im Kombinationsfeld ist auch nicht alphabetisch sortiert.
Gibt es eine Möglichkeit, die "Such-Eingabe" im Kombinationsfeld auf die Einträge der Inhalte in der Spalte A zu begrenzen und die Inhalte alphabetisch sortiert in der Auswahl darzustellen?
Ich würde mich sehr freuen, wenn ihr mir weiterhelfen könntet.
Danke im Voraus dafür.
Axel.