mark1987vw
Gebruiker
- Lid geworden
- 19 mei 2009
- Berichten
- 96
Hallo allemaal,
Ik ben bezig met het vullen van een Listbox vanuit een tabel op basis van de datum.
Dit is gelukt.
Maar nu krijg ik het niet voor elkaar om de titels/Headers er boven te krijgen.
Ik gebruik de volgende code om de data in de listbox te krijgen:
Ik heb dit geprobeerd met RowSource maar dit werkt niet.
De titels van de kolommen staan in Rij1 en die zou ik graag boven in de tabel willen hebben.
Ik ben bezig met het vullen van een Listbox vanuit een tabel op basis van de datum.
Dit is gelukt.
Maar nu krijg ik het niet voor elkaar om de titels/Headers er boven te krijgen.
Ik gebruik de volgende code om de data in de listbox te krijgen:
Code:
Sub VulListbox()
Workbooks("TestListbox.xlsm").Activate
Dim id As String, i As Long, Flag As Boolean
Sheets("Blad1").Select
Flag = False
i = 0
id = Me.Datum.Caption
Me.ListBox1.ColumnCount = 7
Me.ListBox1.ColumnWidths = "40;100;20;20;20;20;20"
Me.ListBox1.ColumnHeads = True
Me.ListBox1.RowSource = Head
Do While Cells(i + 1, 1).Value <> ""
If Cells(i + 1, 2).Value = id Then
Flag = True
Me.ListBox1.AddItem
Me.ListBox1.List(UBound(Me.ListBox1.List), 0) = Cells(i + 1, 1).Value
Me.ListBox1.List(UBound(Me.ListBox1.List), 1) = Cells(i + 1, 2).Value
Me.ListBox1.List(UBound(Me.ListBox1.List), 2) = Cells(i + 1, 3).Value
Me.ListBox1.List(UBound(Me.ListBox1.List), 3) = Cells(i + 1, 4).Value
Me.ListBox1.List(UBound(Me.ListBox1.List), 4) = Cells(i + 1, 5).Value
Me.ListBox1.List(UBound(Me.ListBox1.List), 5) = Cells(i + 1, 6).Value
End If
i = i + 1
Loop
End Sub
Ik heb dit geprobeerd met RowSource maar dit werkt niet.
De titels van de kolommen staan in Rij1 en die zou ik graag boven in de tabel willen hebben.