Excel tabblad automatisch de cel naam geven vanuit tabblad 1

Question

Excel tabblad automatisch de cel naam geven vanuit tabblad 1

Anoniem

Goede dag,

Wie kan mij helpen met het volgende:

Ik heb in excel een invul formulier gemaakt met aantal berekeningen via formules.
In Cel A4 t/m A15 komen namen te staan. Iedere cel heeft verwijst naar een tabblad.

Dus Cel A4 (Jan) moet worden tabblad "Jan"

Cel A5 (Wim) moet worden tabblad "Wim"
Etc.

Graag jullie hulp.

Locked Question. This question was migrated from the Microsoft Support Community. You can vote on whether it's helpful, but you can't add comments or replies or follow the question.

0 opmerkingen

1 antwoord

Answer 1

Ervan uitgaande dat nog geen enkel blad bestaat met een naam die in A4:A15 voorkomt, kun je onderstaande macro gebruiken.

Sub macro1() 

Dim sc As Integer, x As Integer 

sc = ThisWorkbook.Sheets.Count 

If sc < 13 Then 

For x = 1 To 13 - sc 

ThisWorkbook.Sheets.Add after:=ThisWorkbook.Sheets(sc) 

Next x 

End If 

For x = 2 To 13 

ThisWorkbook.Sheets(x).Name = ThisWorkbook.Sheets(1).Range("a" & x + 2).Value 

Next x 

End Sub