Keuzelijst met Excel bestanden/sheets erin

[Royzilla]

Goedemorgen,

Ik vraag me af of een keuzelijst met excel bestanden van een folder te hebben. Is het dan ook mogelijk om sheets in een keuzelijst te zetten? Ik heb op internet rond gespeurd maar ik kom echt alleen maar de standaard tutorials tegen hoe je een simpele keuzelijst maakt. Weet iemand een tutorial of wil iemand het me uitleggen?

Dankjewel.

Roy

 

[OctaFish]

Geen idee wat je wilt. Sheets in een keuzelijst? Wat voor keuzelijst? In een formulier? Losse keuzelijst? Sheetnamen van huidige werkboek?

 

[Royzilla]

Sorry dat het wat onduidelijk was.

Ik bedoel, sheets van een huidig werkboek in een formulier.
ik wil graag weten of dat mogelijk is.

 

[edmoor]

In een Userform met een Listbox kun je dit gebruiken om de Listbox te vullen met de namen van de werkbladen in het werkboek:

Private Sub UserForm_Initialize()
    Dim sh As Worksheet
    
    For Each sh In ThisWorkbook.Sheets
        ListBox1.AddItem sh.Name
    Next sh
End Sub

 

[Royzilla]

Thanks dit is wat ik wil!

THANKS !

 

[Royzilla]

Dit werkt beter voor mij, gek genoeg kreeg ik met de code van u maar één sheet.

Private Sub UserForm_Initialize()
Dim sh As Long
    For sh = 1 To ActiveWorkbook.Sheets.Count
        ListBox1.AddItem ActiveWorkbook.Sheets(sh).Name
    Next sh
End Sub

Dit stukje wil ik graag even delen

 

[snb]

of

Private Sub UserForm_Initialize()
    For Each sh In Sheets
        c00=c00 & "/" & sh.Name
    Next
    Listbox1.list=split(mid(c00,2),"/")
End Sub