Tabbladen van naam voor zien

[Jack Nouws]

Hallo

Ik zou graag de naam van cel A1 als tabbladnaam willen hebben, hoe kan ik dat het beste doen?

Met vr gr
Jack

 

[Roncancio]

In VBA

ActiveSheet.Name = Range("A1").Value

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

In VBA

ActiveSheet.Name = Range("A1").Value

Met vriendelijke groet,


Roncancio

Ik gebruik nu dit. wat is het verschil tussen die van jou en mij?

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then Sh.Name = Range("A1").Text
On Error Goto 0
End Sub

 

[Roncancio]

Weinig.
Doordat je de code in Workbook_SheetChange hebt geplaatst, geldt de code op alle werkbladen.
De naam van het werkblad wordt uitsluitend aangepast als er een wijziging in cel A1 plaatsvindt.

Mijn code is een regel die je ergens in een code kunt plaatsen.

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Weinig.
Doordat je de code in Workbook_SheetChange hebt geplaatst, geldt de code op alle werkbladen.
De naam van het werkblad wordt uitsluitend aangepast als er een wijziging in cel A1 plaatsvindt.

Mijn code is een regel die je ergens in een code kunt plaatsen.

Met vriendelijke groet,


Roncancio

Als bijv. 20 bladen hebt kun je dan ook de eerste 4 bladen uitsluiten?

 

[Roncancio]

Jazeker.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing [B]And Sh.Index > 4[/B] Then Sh.Name = Range("A1").Text
On Error GoTo 0
End Sub

Met vriendelijke groet,


Roncancio

 

[Jack Nouws]

Jazeker.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing [B]And Sh.Index > 4[/B] Then Sh.Name = Range("A1").Text
On Error GoTo 0
End Sub

Met vriendelijke groet,


Roncancio

Kun je bijv ook de namen van de tabbladen (60) als hyperlink op een werkblad laten plaatsen.

Met vr gr Jack

 

[Roncancio]

Kun je bijv ook de namen van de tabbladen (60) als hyperlink op een werkblad laten plaatsen.

Met vr gr Jack

Ja via een macro, maar dit lijkt mij een andere topic.

Met vriendelijke groet,


Roncancio