Combobox / Benötige Leerwert
01.11.2021 13:19:20
Andreas
mit nachfolgendem Code befülle ich eine Combobox nach werten, die in der Spalte zu finden sind.
Das klappt soweit auch ganz gut. Jetzt möchte ich aber, dass die Combobox nur Werte zulässt, die sie natürlich auch gefunden hat.
Wenn ich den entsprechenden Wert in der Box auswähle, lässt er mir dann aber keinen Leerwert mehr zu, wenn mal in die Box geklickt wurde.
Wie kann ich das umgehen? Möglicherweise noch einen zusätzlichen Eintrag hinzufügen, der "" enthält? Wenn ja, wie mache ich das bei so einer dynamischen Befüllung?
Vielen Dank vorab
Private Sub FilterBox_Enter()
Dim varWerte As Variant, varItem As Variant
Dim objDictionary As Object
With Worksheets("Datenbank")
varWerte = .Range(.Cells(5, 12), .Cells(.Rows.Count, 12).End(xlUp)).Value
Set objDictionary = CreateObject("Scripting.Dictionary")
For Each varItem In varWerte
objDictionary.Item(Key:=varItem) = vbNullString
Next
End With
Me.FilterBoxStadtKreis.List = objDictionary.Keys
Set objDictionary = Nothing
End Sub