Tabblad-naam automatisch wijzigen naar waarde van celinhoud

[GeertD]

Hallo allemaal,

ik heb een excel-file met een aantal tabbladen.
In het eerste tabblad (INFO) ga ik een aantal velden met info invullen.
Nu is het de bedoeling om de naam van de tabbladen 4 en 5 automatisch te wijzigen naar de volgende naam:

Tabblad 4: "Waardes " & Inhoud van INFO!B10
Tabblad 5: "Waardes " & Inhoud van INFO!B11

M.a.w. de inhoud van de cellen B10 en B11 moeten terugkomen in de tabbladnamen van de tabbladen 4 en 5.
Verder is het belangrijk dat de namen ook automatisch worden gewijzigd iedere keer als de cellen B10 en B11 worden gewijzigd.

Ik weet dat dit met VB zou moeten lukken, maar ik ben hier een leek in en krijg m.b.v. ChatGPT niet de juiste code te pakken.

In bijlage kunnen jullie een voorbeeld van mijn excel terugvinden.
Is er iemand die me hiermee verder kan helpen?

Tabbladnamen.xlsm

[emielDS]

Bedoel je zoiets? Weet wel dat het dan moeilijk zal worden als je formules of vba wil gebruiken.

ps maak NOOIT een tabblad naam met een spatie in.

Tabbladnamen.xlsm

[GeertD]

Hey EmielDS, dit is inderdaad wat ik zoek.
Maar hoe heb je dit nu gedaan? Want ik ben even in VBA gaan kijken en zie hier niet direct iets staan.
Ik zou dit namelijk willen toepassen op mijn echte file (waarin al veel info staat).

[emielDS]

de code staat achter het blad. rechtsklikken op het tabblad en "programmacode" kiezen

[emielDS]

persoonlijk zou ik het zo doen, dan weet je zeker wel blad je moet hebben. anders moet je maar een realistisch voorbeeld plaatsen.

Tabbladnamen.xlsm

[GeertD]

OK, ik had niet gezien dat dit in de code van het blad INFO stond.
Bedankt Emiel! Dit werkt voor mij.

De code is dus:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [b10]) Is Nothing Then
 Blad4.Name = "Waardes_" & Target.Value
 End If
If Not Intersect(Target, [b11]) Is Nothing Then
 Blad5.Name = "Waardes_" & Target.Value
 End If
End Sub