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.

Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.

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