Listbox
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=179
Udskrevet den: 19.Apr.2025 kl. 11:30
Emne: Listbox
Besked fra: andreas
Emne: Listbox
Posteringsdato: 03.Jan.2011 kl. 22:26
|
Jeg prøver at lave en listbox med data fra ark 2.
i listboxen vil jeg gerne have ColumnHeads (overskrifter over min data) problemet er at hvis jeg bruger funktionen
Private Sub UserForm_Activate()
With Me.ListBox1
.RowSource = Worksheets("ark2").Range("A2:e100").Address .ColumnHeads = True .ColumnCount = 4 End With End Sub
Tages der stadig data fra ark1
hvis jeg bruger formlen
'*****
Set Arange = Ark1.Range("A2:e" _
& Ark1.Range("e" & Ark1.Rows.Count).End(xlUp).Row) Me.ListBox1.ColumnHeads = True
Me.ListBox1.List = Arange.Value
'******
kan jeg ikke få den til at skrive noget i ColumnHeads (overskriften)
Håber der er en der kan forklare mig hvad forskellen på .List & .RowSource er og samtidig løse mit problem.
Jeg vil gerne undgå at bruge formlen ark2.activate
|
Svar:
Besked fra: Allan
Posteringsdato: 04.Jan.2011 kl. 22:59
|
Hej Andreas,
Jeg kan godt få den første del at din kode til at virke, er det mon navnet på dit ark den er gal med?
Columnheads er altid før første række i din RowSource, i dit tilfælde Række 1 (A2:E100)
Er dette hvad du skal bruge: /uploads/1/listbox_columnheads.xls - uploads/1/listbox_columnheads.xls
//Allan
|
Besked fra: andreas
Posteringsdato: 05.Jan.2011 kl. 10:41
|
Hej Allan. Den virker også for mig så længe jeg bruger den i samme ark. men hvis jeg vil hente data fra et andet ark virker det ikke.
/uploads/59/listbox_columnheads_data_fra_ark1.xls - uploads/59/listbox_columnheads_data_fra_ark1.xls
VH Andreas
|
Besked fra: Allan
Posteringsdato: 05.Jan.2011 kl. 15:03
|
Hej Andreas,
Ahh, nu er jeg med
 Prøv med:
Private Sub UserForm_Activate()
Dim Kilde As String
Kilde = "Ark1!A2:E100" With Me.ListBox1
.RowSource = Kilde .ColumnHeads = True .ColumnCount = 4 End With End Sub
Det burde virke
//Allan
|
Besked fra: andreas
Posteringsdato: 05.Jan.2011 kl. 18:53
|
Det virker bare!
Tak for det.
|
Besked fra: Allan
Posteringsdato: 05.Jan.2011 kl. 20:56
|
Velbekomme, det var en fornøjelse at kunne hjælpe.
//Allan ------------- MVH Allan https://www.excel-regneark.dk" rel="nofollow - Excel-regneark.dk - Gratis skabeloner til Excel Få over 120 ekstra funktioner med Danmarks bedste add-in |