Tabbladen tellen - 1 blad overslaan

[jansbl]

Dank zij het antwoord van Wigi kan ik het aantal tabbladen binnen een werkmap vaststellen:

Function AantalBladen() As Integer
AantalBladen = ThisWorkbook.Worksheets.Count
End Function​

Nu staat in mijn werkmappen een blad welke niet meegeteld moet worden.
Soms is dit blad al verwijderd, soms niet.
Ik kan dus binnen de functie niet zetten "AantalBladen = AantalBladen - 1"
Eerst moet ik vaststellen of dit tabblad nog bestaat of al verwijderd is.
Hoe doe ik dat. (Het liefst nog binnen bovenstaande functie).
Het bewuste tabblad heet "Invultips".


Bij voorbaat dank,

Jans

 

[RdS]

Ben nogal een amateur op excel gebied maar zou je niet iets in je formule kunnen verwerken van:

-werkblad invultips ?

 

[Wigi]

Function AantalBladen() As Integer
    AantalBladen = ThisWorkbook.Worksheets.Count
    On Error Resume Next
    Sheets("Invultips").Activate
    If Err.Number = 0 Then AantalBladen = AantalBladen - 1
End Function

Wigi

 

[Demeter]

Kijk ook hier eens:
http://www.exceltip.com/st/Determin...orkbook_using_VBA_in_Microsoft_Excel/485.html

Maar een functie in een functie is eigenlijk niet aan te raden.

ps. Wigi,
is dat een work around of een nette code? niet dat ik je niet geloof maar...... ziet er zo vreemd uit met je error check.

 

[Wigi]

Kijk ook hier eens:
http://www.exceltip.com/st/Determin...orkbook_using_VBA_in_Microsoft_Excel/485.html

Maar een functie in een functie is eigenlijk niet aan te raden.

ps. Wigi,
is dat een work around of een nette code? niet dat ik je niet geloof maar...... ziet er zo vreemd uit met je error check.

Ferenc

uiteindelijk doet Joseph Rubin van Exceltip.com dat toch ook? Enkel gebruikt hij lengte van de sheetname terwijl ik het blad - probeer - te activeren.

Wigi

 

[Demeter]

uhhhhhhhhhhhhhhhh

 

[Wigi]

uhhhhhhhhhhhhhhhh

Niet?

Iemand met over de 1000 Excel posts moet dit toch begrijpen hé.

 

[jansbl]

Function AantalBladen() As Integer
    AantalBladen = ThisWorkbook.Worksheets.Count
    On Error Resume Next
    Sheets("Invultips").Activate
    If Err.Number = 0 Then AantalBladen = AantalBladen - 1
End Function

Wigi

Het werkt.
Weer bedankt,

Jans

 

[Demeter]

Wigi,

Ik begrijp dit zeker. Maar hed er geen acht op geslagen dat ze alle twee met een Error Resume werken. Vandaar!