weergave columns in combobox

[kareltje555]

hoe kan ik bepaalde kolommen wel of niet , en de breedte aanpassen in bij een weergave in een combobox :

Private Sub CBCoa_nr_Click()
Application.Goto Sheets("ZoCo").Cells(1)
Dim Ctrl As Control
TB_coa_nr.Value = Me.CBCoa_nr.Column(0)
TBanaam.Value = Me.CBCoa_nr.Column(2)
TBvnaam.Value = Me.CBCoa_nr.Column(3)
TBmv.Value = Me.CBCoa_nr.Column(4)
TBlvh.Value = Me.CBCoa_nr.Column(5)
TBgebdatum.Value = Me.CBCoa_nr.Column(6)
CBzoco_naam.Value = Me.CBCoa_nr.Column(32)
CBzorgdomein.Value = Me.CBCoa_nr.Column(33)
TBomschrijving.Value = Me.CBCoa_nr.Column(34)
TBacties.Value = Me.CBCoa_nr.Column(35)
TBvervolg.Value = Me.CBCoa_nr.Column(36)
TextBox9.Value = Me.CBCoa_nr.Column(37)
TextBox10.Value = Me.CBCoa_nr.Column(38)
TextBox11.Value = Me.CBCoa_nr.Column(39)
TextBox12.Value = Me.CBCoa_nr.Column(40)
TextBox13.Value = Me.CBCoa_nr.Column(41)
TextBox14.Value = Me.CBCoa_nr.Column(42)
TextBox15.Value = Me.CBCoa_nr.Column(43)
TextBox16.Value = Me.CBCoa_nr.Column(44)
TextBox17.Value = Me.CBCoa_nr.Column(45)
TextBox18.Value = Me.CBCoa_nr.Column(46)
TBl_contact.Value = Me.CBCoa_nr.Column(47)
TBv_contact.Value = Me.CBCoa_nr.Column(48)
End Sub

 

[HSV]

Door ColumnCount en Columnwidths in te stellen in de eigenschappen.

 

[gast0660]

Of zo:

Private Sub UserForm_Initialize()

ComboBox1.ColumnWidths = "100;100;100;60;100;60;100;100;"        
ComboBox1.ColumnCount = 8
End  sub

 

[kareltje555]

meciekes

top . just what i needed