naam tabblad en celwaarde

[bebobebo]

Hallo Exceltoppers

Ik heb hier op het forum een mooie oplossing gekregen om met een celwaarde een naam aan een tabblad te geven.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [a1].Address Then
       ActiveSheet.Name = Target.Value
    End If
End Sub

Dit werk goed op het moment dat er een enter achter deze waarde is gegeven.
Ik kom er nu achter dat hij het niet werkt als er verwezen wordt naar een formule.

Bekijk bijlage naam tabblad en celwaarde.xls

Weet iemand de oplossing

Groet Bert

 

[trucker10]

Hallo Exceltoppers

Ik heb hier op het forum een mooie oplossing gekregen om met een celwaarde een naam aan een tabblad te geven.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = [a1].Address Then
       ActiveSheet.Name = Target.Value
    End If
End Sub

Dit werk goed op het moment dat er een enter achter deze waarde is gegeven.
Ik kom er nu achter dat hij het niet werkt als er verwezen wordt naar een formule.

Bekijk bijlage 64269

Weet iemand de oplossing

Groet Bert

Beste Bert zet gewoon de range op D1

If Target.Address = [D1].Address Then

 

[bebobebo]

Beste Bert zet gewoon de range op D1

If Target.Address = [D1].Address Then

Hallo Daniel,

Dat kan als tabblad de naam van cel D1 moet krijgen.
A1 is een formule die verschillende waarde verzameld en deze waarde moet het tabbladnaam gaan worden.

Bij deze een iets duidelijker bijlage.

Bekijk bijlage naam tabblad en celwaarde2.xls

Er moet iets gebeuren als de celwaarde aangepast gaat worden, niet bij het open van het bestand, maar bij het invullen van de gegevens.

Bert

 

[Roncancio]

Zo werkt het wel:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1].Value <> "" Then ActiveSheet.Name = [a1].Value
End Sub

Met vriendelijke groet,


Roncancio

 

[bebobebo]

Zo werkt het wel:

Private Sub Worksheet_Change(ByVal Target As Range)
If [a1].Value <> "" Then ActiveSheet.Name = [a1].Value
End Sub

Met vriendelijke groet,


Roncancio

Hallo Rocancio,

Top, werkt helemaal oke, bedankt.
Ik kom nu het volgende tegen.
Het werkt prima als dit binnen 1 werkblad gebeurd, na een invulling en enter ergens op het blad gaat
de waarde A1 aangepast worden, helemaal oke.
Nu wil ik hetzelfde op blad twee alleen nadat er gegevens zijn ingevuld op blad 1.
Dit gaat alleen maar werken als ik nadat de data op blad 1 heb ingevuld daarna ergens op blad twee een cel heb veranderd.
Ik heb al iets geprobeerd maar het volgende werkt niet.

Private Sub Worksheet_Change(ByVal Target As Range)
If ['Blad1'!a1].Value <> "" Then ActiveSheet.Name = [a1].Value
End Sub

Bert




.

 

[Warme bakkertje]

Bert, bedoel je zoiets ?

Mvg

Rudi

 

[bebobebo]

Bert, bedoel je zoiets ?

Mvg

Rudi

Hallo Rudi,

Yes, schot in de roos, helemaal oke, bedankt, ik kan weer verder.

Ik heb hem nu gezet op verschillende tabbladen,zal wel niet de schoonheidsprijs verdienen, maar het werkt.
Een minpuntje is wel als je een datum 1 dag later pakt dat de naam van het tabblad deze al bestaat en komt dan met een foutmelding.

Voor die er wat aan hebben een bestandje als bijlage.

Bekijk bijlage naamtabblad en celwaarde4.xls


Gr. Bert