Naam van werkblad in cel kopiëren

[Swacar185]

Vraagje : is het mogelijk om de naam van het werkblad in een cel te kopieren ?
Dank bij voorbaat

 

[GiMe]

Zet volgende code als programmacode van je werkblad voor de wijziging van cel A1 in de naam van het werkblad : (rechts klikken op tabbladnaam en daar plakken)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NameRange As Range
Set NameRange = Range("A1")
If Not Intersect(Target, NameRange) Is Nothing Then
    On Error Resume Next
    ActiveSheet.Name = CStr(NameRange)
End If
End Sub

 

[Roncancio]

Of via een formule:

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

Met vriendelijke groet,


Roncancio

 

[Swacar185]

Zet volgende code als programmacode van je werkblad voor de wijziging van cel A1 in de naam van het werkblad : (rechts klikken op tabbladnaam en daar plakken)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim NameRange As Range
Set NameRange = Range("A1")
If Not Intersect(Target, NameRange) Is Nothing Then
    On Error Resume Next
    ActiveSheet.Name = CStr(NameRange)
End If
End Sub

Bedankt.
Ik doe waarschijnlijk iets verkeerd :
Ik klik re op het tabblad / programmacode weergeven
Ik heb daar de bovenstaande code ingeplakt.
Maar verder weet ik het niet goed, wnt dan re klikken en plakken werkt blijkbaar niet ?
Dank bij voorbaat

 

[Swacar185]

Of via een formule:

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

Met vriendelijke groet,


Roncancio

Bedankt.
Heb deze formule gekopieerd in een willekeurige cel, maar krijg dan #WAARDE. Waar vindt hij trouwens die bestandsnaam ?

 

[Roncancio]

Bedankt.
Ik doe waarschijnlijk iets verkeerd :
Ik klik re op het tabblad / programmacode weergeven
Ik heb daar de bovenstaande code ingeplakt.
Maar verder weet ik het niet goed, wnt dan re klikken en plakken werkt blijkbaar niet ?
Dank bij voorbaat

De code van GiMe klopt niet omdat die code de waarde van cel a1 gebruikt om het werkblad te benoemen terwijl het de bedoeling is dat de naam van het werkblad in cel A1 komt, naar ik aanneem.

Onderstaande code doet dit. (evenals mijn vorige post)

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A1") = ActiveSheet.Name

End Sub

Met vriendelijke groet,


Roncancio

 

[Roncancio]

Bedankt.
Heb deze formule gekopieerd in een willekeurige cel, maar krijg dan #WAARDE. Waar vindt hij trouwens die bestandsnaam ?

Heb je het bestand al opgeslagen?
Anders krijg je een foutmelding.

Met vriendelijke groet,


Roncancio

 

[GiMe]

De code van GiMe klopt niet omdat die code de waarde van cel a1 gebruikt om het werkblad te benoemen terwijl het de bedoeling is dat de naam van het werkblad in cel A1 komt, naar ik aanneem.

Helemaal juist,moet dingend voor een bril

 

[Swacar185]

Idereen bedankt voor de oplossingen

 

[Blommo]

naam werkblad op een ander blad plaatsen?

Hallo allemaal,

Als ik een werkbladnaam op een andere blz. wil plaatsen met onderstaande formule
=RECHTS(CEL("bestandsnaam");LENGTE(CEL("bestandsnaam"))-VIND.SPEC("]";CEL("bestandsnaam")))
komt hij iedere keer terug met Blad1 i.p.v. bijv. Blad2
Hoe kan ik dit opvangen


Groet Blommo

 

[Roncancio]

Hallo allemaal,

Als ik een werkbladnaam op een andere blz. wil plaatsen met onderstaande formule
=RECHTS(CEL("bestandsnaam");LENGTE(CEL("bestandsnaam"))-VIND.SPEC("]";CEL("bestandsnaam")))
komt hij iedere keer terug met Blad1 i.p.v. bijv. Blad2
Hoe kan ik dit opvangen


Groet Blommo

CEL toont informatie over het huidige werkblad.
Wil je een andere werkbladnaam vinden dan zal het met VBA moeten.
Het is overigens niet moeilijk om dat te doen.

Met vriendelijke groet,


Roncancio

 

[Blommo]

werkbladnaam op een andere blz.

Oké

Bedankt voor de informatie

Groet Blommo