De naam van tabbladen aanpassen

[docenthems]

Graag zou ik de namen van de tabbladen willen aanpassen aan de naam die komt te staan in cel D1.
Ik heb wat zaken geprobeerd maar kom niet tot de gewenste oplossing.
Kan iemand mij hier bij helpen

Alvast bedankt
Bekijk bijlage Cijfers examens.xlsx

 

[SjonR]

deze draaien?

Sub SjonR()

For Each sh In ThisWorkbook.Sheets
    sh.Name = sh.Range("D1").Value
Next
End Sub

 

[RogerReijkers]

Of deze:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$2" Then Exit Sub
If Target = 0 Then naam = Cells(4, 1): Target.Offset(2) = 1
If Target = 1 Then naam = Cells(2, 1): Target.Offset(2) = 0
Sheets(1).Name = naam
End Sub

 

[snb]

Vermijd samengevoegde cellen in Excel.

 

[roeljongman]

Andersom is het een stuk makkelijker. De tabblad naam in een cel weergeven

kan met de formule :
=DEEL(CEL("bestandsnaam");VIND.SPEC("]";CEL("bestandsnaam";A1))+1;31)

zo te zien gebruik je geen geautomatiseerde logica om de namen in D1 te krijgen dus dan kan deze methode wellicht uitkomst bieden

 

[VenA]

Gegevens vastleggen in 1 blad (tabel) geeft je veel meer mogelijkheden.

 

[RogerReijkers]

Inderdaad, andersom is makkelijker.

Dit is een andere variant:
=RECHTS(CEL("bestandsnaam";$A$1);LENGTE(CEL("bestandsnaam";$A$1))-VIND.SPEC("]";CEL("bestandsnaam";$A$1)))

 

[snb]

@Roger


http://www.helpmij.nl/forum/showthr...en-aanpassen?p=6091225&viewfull=1#post6091225 over het hoofd gezien ?

 

[RogerReijkers]

dat is juist