Mich beschäftigt zur Zeit eine Combobox bei der mir aufgefallen ist dass sie nicht alle werte anzeigt. Sie zeigt gerade mal 22 von ca. 85 Werte an.
Ich habe hier dieses Skript:
Private Sub UserForm_Initialize()
'Detail texte suchen
Dim objDictionary As Object, varBereich As Variant, i As Long
Set objDictionary = CreateObject("Scripting.Dictionary")
varBereich = Range("H14", Range("H14").End(xlDown)) 'Range in der, der Text gesucht wird
For i = LBound(varBereich) To UBound(varBereich) 'Eintrag wird nur übernommen wenn er im DictionaryObject noch nicht enthalten ist
objDictionary(varBereich(i, 1)) = 0
Next
ComboBox1.List = objDictionary.keys
ComboBox1.ListIndex = 0 'Anzeigen von Text in ComboBox
Set objDictionary = Nothing 'Set Objekt wieder aus dem Speicher löschen
End Sub
Kann es sein dass die ComboBox nicht in der Lage ist so viele werte aufzunehmen?Gruss
Thomas