Celnaam naar werkbladnaam

[DonMichael]

Hallo,

Ik zou graag willen weten hoe ik een celnaam kan overnemen in een naam van een werkblad.

Ik heb op cel A2 een naam staan, die ik automatisch wil koppelen aan de naam van het werkblad. Hoe kan ik dit het beste doen??

Kan ik er ook voor zorgen dat dit automatisch gebeurd voor alle werkbladen, aangezien ik meer dan 100 werkbladen heb??!!

Mvgr,

DonMichael

 

[Roncancio]

Via onderstaande macro worden alle werkbladen in het werkblad genoemd naar de waarde in cel A2.

Sub WerkbladNaam()
Dim WBl As Worksheet
    For Each WBl In ThisWorkbook.Worksheets
        If WBl.Range("A2").Value <> "" Then
            WBl.Name = WBl.Range("A2").Value
        End If
    Next
End Sub

Met vriendelijke groet,


Roncancio

 

[DonMichael]

Ik krijg de volgende foutmelding als ik de makro wil uitvoeren (zie bijlage)

 

[snb]

Dat betekent dat jij in minstens 1 geval in een cel A2 een waarde hebt staan die als naam voor een werkblad niet toegestaan is.
Controleer dus eerst even die gegevens met de volgende code

Sub WerkbladNaam()
  on error resume next
  For Each sh in sheets
    sh.name=sh.range("A2")
    If err.number >0 then msgbox "In blad " & sh.name & " bevat cel A2 de ongeldige waarde: " & sh.[A2] 
    err.clear
  Next
End Sub

 

[DonMichael]

Volgend probleem,

De makro veranderd niet automatisch de namen op het werkblad, kan dit wel??

 

[snb]

Ja, met

Sub WerkbladNaam()
  on error resume next
  For Each sh in sheets
    sh.name=sh.range("A2")
    do while err.number >0 
       sh.name= Inputbox ("In blad " & sh.name & " bevat cel A2 de ongeldige waarde: " & sh.[A2] )
    loop
    err.clear
  Next
End Sub

 

[DonMichael]

Krijg een compileerfout klopt dat??

 

[snb]

Ja. Vorige code aangepast.