Sheet list

[recius]

Beste,

Ik heb een excel bestand waar ik de planning maak voor de desbetreffende week. Elke week is een nieuwe sheet met het weeknummer als sheetnaam. Ik voeg deze nieuwe sheets toe dmv een knop. Ik ben nu opzoek naar een functie waarmee je naar sheets kan zoeken voor als ik een keer een planning wil opzoeken. Is dit mogelijk?

Thnx in advance :thumb:

Bekijk bijlage planning.xls

 

[Lemmod]

Bedoel je zoiets? In cel B9 vul je een weeknummer in en zodra je op Zoeken drukt dan wordt de sheet met het desbtreffende nummer actief.

 

[recius]

Lemmod,

jep dat ik precies wat ik bedoel thnx.. kan het nummer dat je in b9 zet ook in een textbox? d8 dat t iets was als

Workbooks("Agenda(2).xls").Worksheets(CStr(TextBox1.Value)).Select

maar dit werkt niet en als ik een niet bestaand sheetnummer invul krijg ik een error. Enig idee?

 

[Lemmod]

Lemmod,

jep dat ik precies wat ik bedoel thnx.. kan het nummer dat je in b9 zet ook in een textbox? d8 dat t iets was als

maar dit werkt niet en als ik een niet bestaand sheetnummer invul krijg ik een error. Enig idee?

On Error Resume Next
Workbooks("Agenda(2).xls").Worksheets(Worksheets("Menu").TextBox1.Value).Select

De foutafhandeling kun je netter doen maar dat mag je zelf bedenken.
De code werkt in het bestand wat ik heb gebruikt om te testen.

 

[recius]

top! thnx voor de snelle reacties. :thumb:

Gr, Recius