ColumnHeads

[Neuz]

Beste allemaal,

Ik ben bezig om een listbox te maken waarin verschillende gegevens moeten komen te staan. Hiervoor gebruik ik het volgende script

Private Sub UserForm_Activate()
    LisCollectieConstructeurs.List = Sheets("Constructeur").Range("B3:O3" & Cells(Rows.Count, "B").End(xlUp).Row).Value
    LisCollectieConstructeurs.ColumnCount = 14
    LisCollectieConstructeurs.ColumnWidths = "1,3cm;2,5cm;4,9cm;5cm;1,2cm;3cm;2,2cm;2,5cm;2,6cm;4cm"
End Sub

Dit werkt perfect. Alle gegevens die ik wil weergeven komen netjes op een rij te staan.

Alleen nu wil ik ook de ColumnHeads weergeven. Als ik dat echter met de normale code doe namelijk:

   LisCollectieConstructeurs.ColumnHeads = True
   LisCollectieConstructeurs.Row.Source = "B2:O2"

Dan geeft excel een fout melding aan op de eerste rij. Namelijk:

    LisCollectieConstructeurs.List = Sheets("Constructeur").Range("B3:O3" & Cells(Rows.Count, "B").End(xlUp).Row).Value

Hoe kan ik een listbox maken en ook mijn ColumnHeads laten weergeven?

Alvast bedankt voor de moeite.

Groet Neuz

 

[HSV]

Columnheads werkt alleen via RowSource en niet via list.

Private Sub UserForm_Initialize()
with LisCollectieConstructeurs
    .ColumnHeads = True
    .RowSource = Sheets("Constructeur").Range("b3:O" & sheets("Constructeur").Cells(Rows.Count, "B").End(xlUp).Row).Address
    .ColumnCount = 14
   .ColumnWidths = "1,3cm;2,5cm;4,9cm;5cm;1,2cm;3cm;2,2cm;2,5cm;2,6cm;4cm;2cm;2cm;2cm;2cm"
end with
End Sub

 

[Neuz]

Bijna

Beste HSV,

Sorry van de late reactie maar ik had eerder geen tijd om jouw script toe te voegen aan mijn document.

Ik heb dit net gedaan en het werkt wel. Echter is er een klein probleempje.

De ColumnHeads komen nu van het tabblad Gegevens af in plaats van het tabblad Constructeur. Het tabblad
Gegevens is ook waar het UserForm getoond wordt. Is hier nog een oplossing voor de verzinnen zonder dat ik
van tabblad hoef te wisselen.

Alvast bedankt voor de moeite.

Groet Neuz

 

[HSV]

Dat kon ik ook niet weten.

Private Sub UserForm_Initialize()
with LisCollectieConstructeurs
    .ColumnHeads = True
    .RowSource = [COLOR=#FF0000]"Constructeur!" &[/COLOR] Sheets("Constructeur").Range("b3:O" & sheets("Constructeur").Cells(Rows.Count, "B").End(xlUp).Row).Address
    .ColumnCount = 14
   .ColumnWidths = "1,3cm;2,5cm;4,9cm;5cm;1,2cm;3cm;2,2cm;2,5cm;2,6cm;4cm;2cm;2cm;2cm;2cm"
end with
End Sub

 

[Neuz]

Gelukt

Beste HSV,

Bedankt voor de snelle reactie.

Je kon dit inderdaad niet weten. Ik had het namelijk niet zo uitgelegd.

Bedankt voor het script het werkt perfect.

De vraag gaat bij deze dus ook op slot.

Groet Neuz