Tabbladnaam in cel

[Oiksky]

Beste,

Ik zou graag een bestand maken waar bv in cel A1 de tabbladnaam komt van die tab.
Bv mijn tabblad naam is 'Blad 1' dan zou er in cel A1 'Blad 1' moeten staan, is dit mogelijk?
en dat dit dus automatisch aanpast als je de tabbladnaam aanpast.

 

[Paradoxx]

Wil je dat met of zonder VBA oplossen.

zonder VBA de formule gebruike

=cel("bestandsnaam";A1)

excel zal nu het hele pad weergeven, dus inclusief werkblad naam.

 

[Paradoxx]

Hier een blad met beide oplossingen...

in het VBA gedeelte een normale module de volgende code invoegen,.. en dat werkt heerlijk. (wel opnieuw laten uitrekenen, werkt hetzelfde als Datum())

Function Bladnaam()
    Bladnaam = ActiveSheet.Name
End Function

Bekijk bijlage oiksky.xlsm

 

[Oiksky]

Dit werkt niet bij mij, er staat #naam? de bedoeling is dat ik het blad dus kan benoemen en dat het dus in een cel komt, en ook automatisch aanpast.
het probleem is, ik kan helemaal niet met VBA werken
dus liefst de gewone oplossing ik heb een screenshot genomen van het bestand dat ik zie.

 

[Paradoxx]

Tja,... zonder VBA zal dat niet gaan....

http://www.helpmij.nl/forum/showthread.php/325313-Functie-voor-tabbladnaam-in-cel

hier is nog eenzelfde oplossing overigens,... ook weer met VBA.

 

[zapatr]

Kleine aanpassing:

Function Bladnaam() As String
Application.Volatile
Bladnaam = ActiveSheet.Name
End Function

Let op: om de functie te gebruiken, dit invoeren: =Bladnaam()

 

[Haaren101]

Zonder VBA

=RIGHT(CELL("filename";O4);LEN(CELL("filename";O4))-SEARCH("]";CELL("filename";O4)))
OF
=MID(CELL("filename";A1);FIND("]";CELL("filename";A1))+1;LEN(CELL("filename";A1))-FIND("]";CELL("filename";A1)))

In de bijlage zit het voorbeeld; hierin zijn de functies in het nederlands vertaald als je ze in een nederlandse versie opent.

Ron

 

[Paradoxx]

@Haaren101,

:thumb:

ik had geen tijd om tijdens het posten om de hele formule uit te vogelen..
Maar ook nu veranderd de celwaarde toch niet meteen als de bladnaam word gewijzigd?

 

[zapatr]

Maar ook nu veranderd de celwaarde toch niet meteen als de bladnaam word gewijzigd?

Met de functie in mijn bericht hierboven (bericht #6) wél hoor !

 

[Paradoxx]

Met de functie in mijn bericht hierboven (bericht #6) wél hoor !

Klopt. Alleen vrager wilde/kan geen VBA gebruiken?!

 

[Oiksky]

Nee het lukt me nu ook! merci voor de info!
Nu zit ik wel nog met een ander probleem, maar dat is een autocad-excel koppelingsprobleem, ik denk niet dat iemand van jullie daar de nodige kennis over heeft?

 

[Haaren101]

@Haaren101,

:thumb:

ik had geen tijd om tijdens het posten om de hele formule uit te vogelen..
Maar ook nu veranderd de celwaarde toch niet meteen als de bladnaam word gewijzigd?

Probeer het uit! Werkt het niet direcht dan even de F9 beroeren

Ron

 

[Haaren101]

Nee het lukt me nu ook! merci voor de info!
Nu zit ik wel nog met een ander probleem, maar dat is een autocad-excel koppelingsprobleem, ik denk niet dat iemand van jullie daar de nodige kennis over heeft?

Nooit het Helpmij forum onderschatten!
Gewoon je vraag stellen en in dit geval even een nieuw topic opstarten.

Ron