Listbox + tabladen

[henkievermeer]

Hallo

Ik hoop dat iemand mij weer eens kan helpen.
Ik probeer een listbox te vullen met de inhoud meerdere tabbladen.
Dit moet ook variabel zijn, want er kan via het programma meerdere tabbladen aangemaakt worden
en deze moeten er dan ook in. Dus alle inhoud van de aanwezige tabbladen in één listbox.

Zoals ik het nu doe komt alleen de laatste in de listbox.
Ik heb er een bestandje als voorbeeld bij gedaan.

Alvast bedankt.

 

[VenA]

Zelf vind ik het niet zo handig om gelijksoortige gegevens in verschillende tabjes te zetten. Beter kan je alles in één tabel zetten.

De gegevens worden nu even in een 'temp' tabje gezet en vervolgens in de listbox gezet.

Private Sub UserForm_Initialize()
Sheets.Add
With ActiveSheet
    .Name = "Temp"
    For Each sh In Sheets
        If sh.Name <> "Groep" And sh.Name <> "Temp" Then
            ar = sh.Cells(2, 1).CurrentRegion
            .Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1).Resize(UBound(ar), UBound(ar, 2)) = ar
        End If
    Next sh
    ar = .Cells(2, 1).CurrentRegion
    Application.DisplayAlerts = False
    .Delete
    Application.DisplayAlerts = True
End With
With Listbox1
    .List = ar
    .ColumnCount = 6 'Determine number of columns
    .ColumnWidths = "60;100;70;80;58" 'Set column widths
    End With
End Sub

 

[henkievermeer]

Bedankt voor je reactie.

Het werkt perfect, maar ik wil graag dat alleen de kolommen F-G-H-I-J erin komen te staan te staan.
Is dit ook mogelijk?

Henkie

 

[VenA]

Dan zal je de handel een beetje moeten opschuiven.

ar = sh.Cells(2, 1).CurrentRegion.Offset(, 5)

 

[henkievermeer]

Het werkt nu helemaal perfect.

Bedankt.

Henkie