Hi Forum.
LØST.
Jeg udvidede Listboksen til at vise 12 kolonner i stedet for 6, i dennes settings.
Og så satte jeg de sidste 6 kolonne bredder til = 0pt samme sted. (Betyder kolonnen ikke vises i Listboksen).
Plus jeg udvidede ListBox.Range fra kolonne J til L, de steder, dét skulle gøres.
UserForm1.ListBox1.List = Sheets("IndtastVagt").Range("A2:L" & rk).Value |
Koden jeg brugte til at vise Listboks rækken i Textboxene ser sådan ud.
Me.TextBox1 = Me.ListBox1.Column(0)Me.TextBox2 = Me.ListBox1.Column(1) Me.TextBox3 = Me.ListBox1.Column(2) Me.TextBox4 = Me.ListBox1.Column(3)osv. |
På min computer laver den en underlig sorterings fejl, når arket åbnes efter download
Men accepter rettelsen og så skulle det køre
Mvh.
Ib