Listbox met scrollbar

[wmr]

Hallo allemaal,

Ik heb een listbox gemaakt. Daarin laat ik getallen tonen. Ik hoef niet te kiezen, het is puur informatief. Voor het mooie heb ik gekozen voor het rechts uitlijnen van die getallen.

Als ik teveel getallen heb, verschijnt er automatisch een scrollbar aan de rechterkant. Die valt echter voor een deel over de laatste cijfers van mijn getallen en zijn dus niet goed leesbaar.

Is daarvoor een oplossing?

Scrollbar aan of uit is geen optiemogelijkheid.

Het zou het mooist zijn als ik kan scrollen (met mijn muiswieltje) zonder dat ik een scrollbar heb.

thanks
Willem

 

[snb]

Listbox1.columncount=2
listbox1.columnwidth= "90;21"

NB. Natuulijk in ontwerpmodus met de hand invoeren.

 

[wmr]

Bedankt, snb,

Het werkt inderdaad.

In je bereik moet je wel een lege kolom meenemen.

De code heb ik als volgt geschreven:

    With ListBox1
        .ColumnCount = 2
        .ColumnWidths = "42; 18"
        .RowSource = "A1:B" & Rijen
    End With

groet
Willem

 

[snb]

Zoals gezegd zou ik de eigenschappen met de hand instellen in de ontwerpmodus.

Het vullen van de Listbox (vermijd rowsource !)

Private sub Userform_initialize()
   listbox1.list=sheets("naam").cells(1).currentregion.resize(,2).value
End Sub

 

[wmr]

Ik heb jouw oplossing met resize nooit gebruikt. Dat vind ik altijd een beetje lastig terug te lezen.
Ik laat altijd het aantal rijen tellen. Op die manier heb ik dan mijn bereik.

Nu zie ik precies dat het om kolom A en B gaat, terwijl ik minder snel zie wat currentregion is.