Formule die kijkt naar Tabbladnamen

[Hansheems]

Hallo,

Ik heb een probleem en ik heb GEEN IDEE of en hoe het mogelijk is op te lossen.

Ik heb een lijst met getallen

1
2
3
4
5
6

Elk getal heeft een eigen tabblad met de naam 1, 2, 3, 4 etc.
Nu zijn dit er in mijn file veeeel meer en ik doe elke maand een paar tabbladen hiden en sommige unhiden.

De vraag:
Is er een mogelijkheid om een formule te maken die een soort van VLOOKUP doet op de tabbladnamen die niet zijn gehide?
Dit zodat ik in 1 oogopslag weet welke ik moet unhiden ipv ze 1 voor 1 te bekijken.

Bedankt voor het meedenken! :thumb:

 

[Timshel]

Kan volgens mij alleen met VBA:

Public Function Verborgen(Sh As String) As Boolean
    Verborgen = Not (Sheets(CStr(Sh)).Visible)
End Function

 

[Hansheems]

ik doe iets fout

Dit lijkt precies wat ik zoek!

Alleen krijg ik hem niet werkend in mijn eigen tab?

Wat doe ik fout ?

 

[Timshel]

Ik kan aan een plaatje niet zien wat je fout doet.
Probeer de fout te reproduceren in een écht voorbeeldbestand.

 

[Hansheems]

Oke ik lijk hem werkend te hebben!
Ik wil hem in mijn personal workbook hebben en dan werkt hij niet, maar als ik een Module toevoeg in het werkblad en ik copy paste hem dan doet hij het wel.
Als ik PRECIES hetzelfde doe in personal werkt het niet? Dat is wel vreemd ??

En dan nog 1 kleine vraag, ik heb dit met meerdere zelfgemaakte formules:
Hij refresht niet automatisch --> dus ik moet F2 - enter doen om hem te verversen, is dit iets waar een oplossing voor is?

 

[Cobbe]

Roep de UDF zo eens aan:

=PERSONAL.XLSB!verborgen(A1)

Dat refreshen is afhankelijk van de functie zelf, niet elke udf triggert een refresh(calculation).

 

[Hansheems]

Roep de UDF zo eens aan:

=PERSONAL.XLSB!verborgen(A1)

Dat refreshen is afhankelijk van de functie zelf, niet elke udf triggert een refresh(calculation).

Ik ben een beetje een newbie denk ik maar als ik de formule =PERSONAL.XLSB!verborgen(A1) intyp werkt hij perfect!
Maar kan ik die link ook aanpassen naar =Verborgen(A1) ??
Of moet ik gewoon het personal ook uit mijn hoofd leren?

In ieder geval super bedankt voor de hulp so far

 

[Cobbe]

Je kan als je dat makkelijker lijkt die UDF in een blanco workbook plakken en dit opslaan als Verborgen als Add-In.

Dan voeg je deze Add-in toe als invoegtoepassing en kan je het zo proepen:

=verborgen(cel)

 

[Timshel]

Als je een regel toevoegt aan de UDF updatet hij nog steeds niet automatisch bij het verbergen of tonen van een werkblad, maar kun je daarvoor wel de F9-toets gebruiken:

Public Function Verborgen(Sh As String) As Boolean
    Application.Volatile
    Verborgen = Not Sheets(CStr(Sh)).Visible
End Function

Opslaan als Add-in zoals Cobbe beschrijft behelst dat je een leeg bestand met de UDF opslaat als .xlam. De Add-in moet daarna ook nog ingeschakeld worden.