Celwaarde is naam van het tabblad

[janemmers]

Hallo
Ik wil in kolom a2 tot a26 (Tablad instellingen) namen invullen. Deze namen dienen vervolgens op tabblad 2 t/m 25 te verschijnen. Als ik de namen aanpas of verwijder moet ook de naam van het tabblad aangepast worden. Als er geen naam is genoemd in kolom a dient het tabblad zijn standaard naam terug te krijgen.
Gaat dit lukken.

Bestandje is bigesloten

 

[dirktimm]

celwaarde enz

Hallo Jan,

Volgens mij werkt de macro al goed. Muteer maar eens in naam in cel A2 dan muteert toch de werkbladnaam en vervolgens in cel A3 enz en weer terug. Of zie ik het probleem niet.

Groet

Dirk

 

[janemmers]

Goed gezien. Echter als je wat lager in de kolom gaat ontstaan er problemen. Bij het verwijderen van namen uit de cellen A2:A26 worden de tabbladen niet meer aangepast.

Jan

 

[HierEnNu]

Ik heb de code omgedraaid. dan werkt het wel goed.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    If Range("A" & Target.Row) <> "" Then
        Sheets(Target.Row).Name = Range("A" & Target.Row)
    Else
        
        Sheets(Target.Row).Name = "Blad" & Target.Row
    End If
End If
End Sub
/CODE]

Groeten,

M.

 

[janemmers]

Werkt prima

Bedankt