Functie voor tabbladnaam in cel

[jansbl]

Hallo,

Om de naam v.h. tabblad in een cel van dat tabblad te zetten gebruik ik de onderstaande functie:

Function TabNaam() As String
    ' wordt gebruikt om de naam v.h. tabblad in een cel te zetten
    
    TabNaam = ActiveSheet.Name
    
End Function

Dat werkt goed ........ behalve:
Af en toe wordt de naam in de cel aangenomen van een ander tabblad, welke dan actief is.
Dat heeft er natuurlijk mee te maken dat ik " = ActiveSheet.Name" heb gebruikt.
Dus daar moet wat anders voor komen.
Maar wat?

m.vr.gr.,
Jans

 

[brandernl]

Worksheets("naam van het tabblad").Name

 

[jansbl]

Worksheets("naam van het tabblad").Name

Dag Bernard,

Dat kan toch niet werken als functie?

m.vr.gr.,
Jans

 

[brandernl]

Dag Jans,
Ik ben niet zo thuis in functies. Ik gaf een alternatief voor

ActiveSheet

 

[Wigi]

Function TabNaam() As String
    ' wordt gebruikt om de naam v.h. tabblad in een cel te zetten
    
    TabNaam = Application.Caller.Parent.Name
    
End Function

Wigi

 

[jansbl]

Function TabNaam() As String
    ' wordt gebruikt om de naam v.h. tabblad in een cel te zetten
    
    TabNaam = Application.Caller.Parent.Name
    
End Function

Wigi

Werkt weer prima. :thumb:

Jans

 

[Kevercat]

Hoe gaat deze code nu een cel in?

Function TabNaam() As String
    ' wordt gebruikt om de naam v.h. tabblad in een cel te zetten
    
    TabNaam = Application.Caller.Parent.Name
    
End Function

Wigi

Natuurlijk ben ik een verschikkelijke oen in VBA, ik was al blij dat ik snapte dat dit VBA moest zijn. Deze functie zal precies doen wat ik graag wil maar ik denk dat een cel aangegeven moet worden waar de output van deze functie geplaatst wordt.
Met andere woorden ik wil in cel H29 de tabbladnaam krijgen, de VBA functie staat hierboven maar hoe wordt de naam nu in H29 getoond?

 

[Gert Bouwmeeste]

Formule in H29: =Tabnaam()

Die geeft de naam van het huidige tabblad.

 

[Kevercat]

Hoe simpel kan iets zijn

Hartstikke bedankt, hoe simpel kan iets zijn zou je zeggen:thumb: