Namenlijst koppelen aan verschillende tabbladen

[Maurice1976]

Als ik deze code in mijn werkboek plakt werkt dat fantastisch:

WORKBOOK MODULE
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub

Maar hoe kan ik nu meerdere namen onder elkaar koppelen aan verschilende tabbladen.
Ik wil dus een namelijst creëren die daarna allemaal een eigen tabblad krijgen.

Iemand een idee?

Maurice

 

[Roncancio]

Als ik deze code in mijn werkboek plakt werkt dat fantastisch:

WORKBOOK MODULE
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$A$1" Then Sh.Name = Target
End Sub

Maar hoe kan ik nu meerdere namen onder elkaar koppelen aan verschilende tabbladen.
Ik wil dus een namelijst creëren die daarna allemaal een eigen tabblad krijgen.

Iemand een idee?

Maurice

Ik begrijp het niet helemaal.
- Wil je een lijst in de A-kolom van al je tabbladen?
- Wil je de tabbladen vernoemen naar de lijst in de A-kolom?

Met vriendelijke groet,


Roncancio

 

[Maurice1976]

Ik begrijp het niet helemaal.
- Wil je een lijst in de A-kolom van al je tabbladen?
- Wil je de tabbladen vernoemen naar de lijst in de A-kolom?

Met vriendelijke groet,


Roncancio

Hoi Roncancio,
Bedankt voor je snelle reactie.
Ik wil idd de tabladen vernoemen naar de lijst in de A-kolom.
Dus op het moment dat er in de A-kolom een namenlijst wordt ingevoerd, dan zou er voor elke naam een tablad vernoemt moeten worden.
Doel is een klasselijst creëren, waarna je per leerling een apart rapport kan uitdraaien.
Ik hoop dat het zo iets duidelijker omschreven is.
Maurice

 

[Roncancio]

Hoi Roncancio,
Bedankt voor je snelle reactie.
Ik wil idd de tabladen vernoemen naar de lijst in de A-kolom.
Dus op het moment dat er in de A-kolom een namenlijst wordt ingevoerd, dan zou er voor elke naam een tablad vernoemt moeten worden.
Doel is een klasselijst creëren, waarna je per leerling een apart rapport kan uitdraaien.
Ik hoop dat het zo iets duidelijker omschreven is.
Maurice

Even iets heel snel in elkaar gezet.
Indien er een wijziging plaats vindt in de A-kolom worden de werkbladen vernoemd naar de waardes in de A-kolom.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    For Nm = 1 To Worksheets.Count
        Worksheets(Nm).Name = Range("A" & Nm)
    Next
End If
End Sub

Met vriendelijke groet,


Roncancio

 

[Maurice1976]

Even iets heel snel in elkaar gezet.
Indien er een wijziging plaats vindt in de A-kolom worden de werkbladen vernoemd naar de waardes in de A-kolom.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
    For Nm = 1 To Worksheets.Count
        Worksheets(Nm).Name = Range("A" & Nm)
    Next
End If
End Sub

Met vriendelijke groet,


Roncancio

Hoi Roncancio,
Ik weet niet of het roodgeaceerde deel er perse bij moet, maar ik kreeg hem niet direct in het werkboek geknipt en geplakt. Steeds sprong hij weer van werkboek naar Algemeen.
En gaf hij telkens workbook OPEN aan i.p.v. workbook Sheetchange.
Nou ja, om een lang verhaal kort te maken. Hij zit erin en......het werkt.
Superbedankt.
Maurice

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 1 Then
For Nm = 1 To Worksheets.Count
Worksheets(Nm).Name = Range("A" & Nm)
Next
End If
End Sub

 

[Roncancio]

Nou ja, om een lang verhaal kort te maken. Hij zit erin en......het werkt.
Superbedankt.
Maurice

Graag gedaan.
Als hiermee je vraag is beantwoord, gaarne de vraag op opgelost zetten.

Met vriendelijke groet,


Roncancio