Opgelost =SheetName() Waarom past de cel zich bij wijziging van de bladnaam niet automatisch aan?

[Senso]

Hoe zorg je dat dit wel gebeurd?

 

[AD1957]

=DEEL(CEL("filename";A1);VIND.ALLES("]";CEL("filename";A1))+1;255)

Bestand wel eerst opslaan.

 

[E v R]

Hoe zorg je dat dit wel gebeurd?

Omdat de functie (UDF) niet Volatiel is gebeurt dit niet automatisch,

• Maak de functie "volatile"
• Gebruik een volatiele excel functie in de aanroep erbij: bijvoorbeeld: =sheetname()&left(nu();0)
• Gebruik een excel functie ipv een UDF (zoals door AD1957 of bijvoorbeeld =TEXTAFTER(CELL("filename";A1);"]")

Die laatste zou mijn voorkeur hebben

 

[Senso]

Eric, bedankt. Helaas begrijp ik dat toch niet. Ik heb alleen wat aan een volledige code.
@Albert op internet stond die met +1;500

 

[E v R]

Ik zie jouw volledige code niet...
plaats als eerste regel in jouw UDF :
Application.Volatile
De rest kun je laten staan
Dan wijzigt de naam van de sheet wel meteen mee, hoewel mijn voorkeur een formule-oplossing zou zijn

 

[Senso]

Function SheetName()
Application.Volatile
 SheetName = ActiveSheet.Name
 End Function

Probleem is dat de andere tabbladen ook van naam veranderen.

 

[HSV]

Zo moet het lukken.

Function SheetName()
Application.Volatile
 SheetName = application.caller.worksheet.Name
End Function

 

[Senso]

Gelukt. Bedankt allemaal voor de hulp.