Combobox wn of listbox vullen met data uit een draaitabel

[Eastw00d]

ik wil een draaitabel naar voren brengen in een listbox.
Er komen geen data in mijn listbox.
Wie kan mij op de goede weg zetten?

al vast bedankt

 

[snb]

Een tabel hoort kolomkoppen te hebben.
Dat geldt ook voor een draaitabel.
Gebruik de voorzieningen die Excel biedt, zoals een dynamische tabel

Zet VBA-code in de macromodule waarop de code betrekking heeft; in dit geval het Userform.

Lees ook eens iets over het vullen van listboxen/comboboxen

Zie: https://www.snb-vba.eu/VBA_Fill_combobox_listbox.html

 

[Eastw00d]

OOk deze versie blijft een lege combo box generen

 

[snb]

Nee, generen doen we ons niet.
Genereren doen we met 1 extra lettergreep.

Open het bestand.
Ga naar de VBEditor
Dubbelklik in de projektverkenner op het userform, druk op F5.

 

[Eastw00d]

hij werkt!
Stel dat ik nu beide kolommen van de draaitabel wil krijgen in deze listbox, is dat dan gewoon een kwestie van de colomcount verhogen naar 2?

 

[mvdvlist]

Draitabel

Een ouwetje. Stoei er eens mee...

 

[snb]

In het geplaatste bestand staat de columncount van de listbox al ingesteld op 2.

 

[AD1957]

@snb,
Lijkt me niet dat deze code kan werken.

Private Sub UserForm_Initialize[B][COLOR="#FF0000"]I[/COLOR][/B]()
   ListBox1.List = Sheets("Blad1").[COLOR="#FF0000"]pivottabels(1).Range[/COLOR].Value
End Sub

columncount van de listbox op 2 zetten.(staat nu op 1)

Private Sub UserForm_Initialize()
   ListBox1.List = Sheets("Blad1").PivotTables(1).TableRange1.Value
End Sub

 

[snb]

@Ad

Je hebt helemaal gelijk. Ik had het bestand gewijzigd, maar blijkbaar nog niet opgeslagen voordat ik het hier plaatste. Excuus.
In de vorige post vervangen en hier voor alle zekerheid nogmaals geplaatst.