Data laden in Combobox zonder witregels

[erpee]

In het voorbeeld moet een combobox geladen worden met de data uit kolom C
Ik krijg het wel voor elkaar met :

cmbGebruiker.List = [gebruikers!C2:C25].Value

Maar ja, die range kan kleiner maar als er dan weer namen bijkomen .... pfff... het moet dus wat dynamischer.

Al vele scripts geprobeerd maar het lukt me niet de lijst te laden zonder witregels aan het eind

Wat moet ik anders doen?


PS Alle namen zijn volledig fictief

 

[JEC.]

Als je alleen voor kolom C een tabel gebruikt, maak je het jezelf wel lastiger. Onderstaande zou moeten werken.

cmbGebruiker.List = Range("A2", Range("A2").End(xlDown)).Offset(, 2).Value

 

[AccessGuru]

Handiger is het als je ce complete tabel omzet naar een tabel, en niet alleen je samengevoegde kolom. Dan hoef je namelijk geen extra formules in kolom C te zetten, en loopt de handel dus ook niet uit de pas. In bijgaand bestand had ik dat eerst niet in de gaten, dus heb ik eerst een dynamische namenlijst gemaakt die de namen zou moeten laten zien. Dat werkte niet, omdat je al formules in de tabel had gezet. Die er dus uitgegooid, en nu werkt het prima.

 

[AD1957]

of.

cmbGebruiker.List = Sheets("gebruikers").ListObjects(1).ListColumns(3).DataBodyRange.Value

 

[erpee]

Beide werken mooi, waar voor mijn Dank.

@JEC.
Jij schrijft:

cmbGebruiker.List = Range("A2", Range("A2").End(xlDown)).Offset(, 2).Value

Wat ik nu niet begrijp (vergeef mijn kennisgebrek...) is dat je het hebt over A2, terwijl de data in kolom C staat. Hoe werkt dat?

 

[Haije]

dat komt door de .Offset(,2) in de code

 

[AccessGuru]

En die heb je nodig omdat je dus niet met een 'fatsoenlijke' tabel werkt, maar met een tabel op basis van de derde kolom, waarin je veel te veel formules hebt gezet. Waardoor je cellen dus niet als leeg worden gezien. Dat los je prima op door een tabel te gebruiken met alle kolommen. Dan wordt automatisch bij een nieuwe rij ook je formule mee gekopieerd. Probeer dat soort technieken eerst eens uit voordat je naar slechte workarounds grijpt .

 

[erpee]

Veel geleerd vandaag, Dank!

 

[mvdvlist]

Of met een verschuiving...
Zie simpel kort voorbeeld, formule dient nog iets te worden aangepast...Huiswerk.