RowSource

[Hoornvan]

Helpers ik zit met het volgende probleem.

Het is de bedoeling dat een cboBox wordt gevuld.
Hij moet de kolom vinden en dat lukt, de msgBox geeft het juiste adres hier van.
Alleen lukt het mij niet om de cboBox te vullen, wat ik ook achter firstAddress invoer komt er een fout melding.

Heeft iemand een hint om dit voor elkaar te krijgen?

With cboSoort
       MsgBox "Staat in kolom  " & firstAddress & " ."
      .RowSource = firstAddress 
 End With

 

[snb]

Wat staat er dan in de variabele firstaddress ?
Het moet een adres van een aaneengesloten range met meer dan 1 cel zijn. Bijv.

cboCombobox1.rowsource="A1:K10"​

zie de hulpfunktie van de VBEditor bij Rowsource.

 

[Hoornvan]

snb,

Wat staat er dan in de variabele firstaddress ?
Het moet een adres van een aaneengesloten range met meer dan 1 cel zijn.

De variable firstAddress is steeds verschillend maar de kolom kan hij vinden.
Hij moet alleen de cboBox vullen, met wat daar dan onder staat.

Misschien is het dat er onder de kop van de kolom 1 lege regel staat.
Ik kan eigenlijk geen vaste range opgeven omdat het steeds een andere kolom is.

Dit had ik ook al geprobeerd maar werkt dus niet (fout melding)

.RowSource = firstAddress .Offset(4, 1).End(xlDown).Address

 

[Hoornvan]

Ik ben nu zover dat hij alleen de laatste cel in de cboBox zet.
De lijst staat nu direct onder de koptekst.

Nu nog voorelkaar zien te krijgen dat hij de lijst vanaf het begin in de cboBox zet.

Heeft iemand een hint hier voor?

With CboSoortWerk
        MsgBox "Staat in kolom  " & firstAddress & " ."               
        .RowSource = Range(firstAddress).End(xlDown).Address
End With

 

[snb]

CboSoortWerk.RowSource = Range(range(firstAddress), range(firstaddress).End(xlDown)).address​

of

CboSoortWerk.RowSource = columns(4).specialcells(xlcelltypeconstants).address​

 

[Hoornvan]

snb,

De code zet bij alle twee niets in de cboBox.

pspp,

Je moet met je vraag naar de goede afdeling, dit is Excel.

 

[snb]

Ik kan van hieruit niet beoordelen of er wel gegevens in bijv. kolom 4 staan. De codes zijn in ieder geval correct.
Rowsource is alleen een eigenschap van een combobox in een userform .
Zet hem dus bij voorkeur in de initialize-of Activate gebeurtenis van het userform en vermeld ook de naam van het werkblad.

 

[Hoornvan]

snb,

In kolom B staat waar hij op moet zoeken.
In kolom D tot H staan de koppen met er onder de vulling voor de cboBoX

Moeten ze soms aan elkaar staan de kolommen?

In ieder geval bedankt voor uw tijd.

 

[Hoornvan]

snb,

Ik ben er achter wat de fout was.
Het . stond niet voor RowSource
Nu werkt uw formule wel, ik heb de bovenste gebruikt.

Ik was trouwens vergeten om dat puntje in mijn #4 te zetten (gelijk aangepast)

Nogmaal hartelijk dank voor uw hulp.