kareltje555
Gebruiker
- Lid geworden
- 22 sep 2011
- Berichten
- 70
hoe kan ik bepaalde kolommen wel of niet , en de breedte aanpassen in bij een weergave in een combobox :
Code:
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