Print side | Luk vindue

Vis Listbox værdier fra række i Textboxe

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3753
Udskrevet den: 28.Apr.2024 kl. 21:31


Emne: Vis Listbox værdier fra række i Textboxe
Besked fra: Ib Hansen
Emne: Vis Listbox værdier fra række i Textboxe
Posteringsdato: 13.Jan.2019 kl. 11:50
Hej Forum

I stedet for at forklare en masse, viser jeg et billede med forklarings tekst.
Teksten er også i uploads/1125/Test_-_Rediger_vagt.xlsm" rel="nofollow - Test arket



Jeg kan godt overfører værdierne fra Listboxen, direkte til Textboxene, men det er kun de første 6 værdier/kolonner.
Hvordan jeg overfører de sidste 6 kolonner, eller rettere alle 12 kolonner, ved jeg ikke Cry

På forhånd tak.

Mvh.
Ib


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)


Svar:
Besked fra: Ib Hansen
Posteringsdato: 13.Jan.2019 kl. 17:38
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 Disapprove
Men accepter rettelsen og så skulle det køre Wink

uploads/1125/Løst_-_Rediger_vagt.xlsm" rel="nofollow - Test ark løst

Mvh.
Ib


-------------
Excel 2010 Dk og 2019 Dk på samme computer.
Bruger dog stadig mest 2010..
Men sådan er der jo så majet :o)


Print side | Luk vindue