Heb mijn fout ontdekt. Ik had de code verkeerd hersteld na een aanpassing. Dom dom dom.
Code was:
De -1 stond op de verkeerde regel...... Moest zijn:
Dat stukje is weer werkzaam. Rest enkel de rest. Echter schoot mij daar ook iets van te binnen en wat ik al eerder aangaf. Jij gaf aan dat de voorwaarde was dat alles was ingevuld. Dus ik kan kolom D de naam Opties geven en zo ook de Combo de naam Combpties. Hier kan ik dan invullen als er geen voorwaarden zijn: Geen en als er wel voorwaarden zijn... dan gewoon de voorwaarden wit, creme, inbouw, opbouw, rond, vierkant etc. Maar toch zou het wel handig zijn als ik indien opties leeg is, ik dan alles te zien krijg.
Code was:
Code:
Private Sub UserForm_Initialize()
Set Geg = Sheets("Materiaallijst")
arr = Geg.Columns(1).CurrentRegion.Offset(1)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For i = 1 To UBound(arr)
.Item(arr(i, 1)) = arr(i, 1) -1
Next
Combo_Zoek.List = .keys
End With
Set Geg = Nothing
End Sub
De -1 stond op de verkeerde regel...... Moest zijn:
Code:
Private Sub UserForm_Initialize()
Set Geg = Sheets("Materiaallijst")
arr = Geg.Columns(1).CurrentRegion.Offset(1)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For i = 1 To UBound(arr) - 1
.Item(arr(i, 1)) = arr(i, 1)
Next
Combo_Zoek.List = .keys
End With
Set Geg = Nothing
End Sub
Dat stukje is weer werkzaam. Rest enkel de rest. Echter schoot mij daar ook iets van te binnen en wat ik al eerder aangaf. Jij gaf aan dat de voorwaarde was dat alles was ingevuld. Dus ik kan kolom D de naam Opties geven en zo ook de Combo de naam Combpties. Hier kan ik dan invullen als er geen voorwaarden zijn: Geen en als er wel voorwaarden zijn... dan gewoon de voorwaarden wit, creme, inbouw, opbouw, rond, vierkant etc. Maar toch zou het wel handig zijn als ik indien opties leeg is, ik dan alles te zien krijg.