• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

ComboBox4 List

Status
Niet open voor verdere reacties.
W

wieter

Terugkerende gebruiker
Lid geworden
26 jun 2009
Berichten
1.128
Bij Workbook_Open() wordt met onderstaande code de list van ComboBox4 gevuld. (Dit zijn de weeknummers)
Code: 
Blad1.ComboBox4.List = [if(weekday(date(A1,1,row(1:366)),2)=1,"Week "&weeknum(date(A1,1,row(1:366)),21),"")]
Maar de lege cellen worden ook meegenomen in de list.
Bij de eigenschappen van de ComboBox staat nergens [IgnoreBlank]
Hoe krijg ik de list gevuld zonder die lege cellen?
 

Bijlagen

  • Jaarplanning.xlsm
    54,7 KB · Weergaven: 46
Laatst bewerkt:
Deze coderegel biedt misschien een oplossing?
Code: 
Blad1.ComboBox4.List = Blad1.Range("A1:A369").SpecialCells(xlCellTypeBlanks).Value
Maar wat moet er dan staan i.p.v [xlCellTypeBlanks]
 
Je kunt ook de lege cellen eerst verwijderen.
 
Code: 
Blad1.ComboBox4.List = Filter([transpose(if(weekday(date(A1,1,row(1:366)),2)=1,"Week "&weeknum(date(A1,1,row(1:366)),21),"~"))], "~", False)
levert week 2 tot en met week 53 in 2016.
Dus beter zo:
Code: 
Blad1.ComboBox4.List = Filter([transpose(if(A2:A369="","~",A2:A369))], "~", False)
 
Laatst bewerkt:
Prachtig!
Daar zit ik nu al een hele dag op te zoeken.
Bedankt superman Timshel!!!!!
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan