naam van worksheet in cell

[enlil]

Is het mogelijk om de naam van een blad, in een cel te kopieren? Of omgekeerd, De naam van een specieke cell die automatisch de naam van een blad veranderd?
Dank alvast voor de hulp.
Voorbeeld is bijgesloten. Ik hoop dat eea duidelijk is.

 

[Mde]

het zou hiermee moeten lukken

=RECHTS(CEL("bestandsnaam";$A$1);LENGTE(CEL("bestandsnaam";$A$1))-VIND.SPEC("]";CEL("bestandsnaam";$A$1)))

 

[edmoor]

Dit in de ThisWorkbook sectie en dan het document opslaan als document met macro's (xlsm)

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    Range("C2") = Sh.Name
End Sub

 

[LucHeyndrickx]

Enkel met macro's.
Je bestand moet dus een andere extensie hebben, en je moet programmacode in elk werkblad zetten.
Ik zou niet voor deze oplossing kiezen, vermits je er dan ook nog van op aan moet, dat de macro's ook ingeschakeld gaan worden.

Toch een voorbeeld

 

[edmoor]

Het voorbeeld in #3 staat maar in 1 sectie, niet per werkblad.

 

[LucHeyndrickx]

Ha.... oplossing van mde is een goeie . Zonder macro's.
Ik veronderstel dat die eigenlijk enkel werkt in een Nederlandstalige excel-versie. Bovendien zal die de naam van het werkblad zelf niet veranderen als je de cel overtypt.
Maar hoe dan ook zou ik daar wél de voorkeur aan geven.

 

[edmoor]

Zie ik ook nu, had ik gemist

 

[popipipo]

Ha.... oplossing van mde is een goeie . Zonder macro's.
Ik veronderstel dat die eigenlijk enkel werkt in een Nederlandstalige excel-versie

=RIGHT(CELL("filename";$A$1);LEN(CELL("filename";$A$1))-SEARCH("]";CELL("filename";$A$1)))

Met deze vertaling van de formule van Mde moet het ook lukken voor de engelse versie

 

[enlil]

dank allemaal, ik ga er mee aan de slag, kijken of het mij lukt

 

[AlexCEL]

Nog een optie om een werkbladnaam in een cel te krijgen:

[NL] =DEEL(CEL("bestandsnaam";A1);VIND.ALLES("]";CEL("bestandsnaam";A1))+1;99)
[EN] =MID(CELL("filename";A1);FIND("]",CELL("filename";A1))+1;99)

Omgekeerd werkt niet: zonder VBA is de naam van het werkblad niet via een cel te veranderen.

 

[popipipo]

In de nederlandse versie werk "filename" ook.

Vertaling van ned naar eng (of eng naar ned) gaat dan goed.
Als je "bestandsnaam" gebruikt gaat de vertaling naar eng niet goed.

 

[snb]

Vermijd wijziging van werkbladnamen; we hebben het hier wel over automatisering, die is gebaat bij standaardisatie.

 

[AlexCEL]

In de nederlandse versie werk "filename" ook.
Bij mij ook, maar was er niet zeker van dat dit altijd het geval was...

 

[enlil]

het zou hiermee moeten lukken

=RECHTS(CEL("bestandsnaam";$A$1);LENGTE(CEL("bestandsnaam";$A$1))-VIND.SPEC("]";CEL("bestandsnaam";$A$1)))

waar moet ik deze dan plaatsen? Als programmacode op de naam van het blad?

 

[AlexCEL]

In een cel op het werkblad waar je naam van het werkblad wilt laten zien.

Je kunt met bovenstaande NIET de naam van het tabblad aanpassen.

 

[enlil]

ok,dank