Ga naar inhoud

Tabblad naam uit cel


Cor-Assa
 Delen

Aanbevolen berichten

Beste mensen,

 

Ik heb een werkmap met 10 tabbladen.

Tabblad 1 staan mijn hoofd gegevens.

In de cellen A2 t/m A10 staan namen.

Is het mogelijk dat de tabbladen 2 t/m 10 automatisch de naam aan nemen van een corresponderende cel?

Dit moet automatisch wijzigen als de naam in een van de cellen A2 t/m A10 wijzigt.

 

B.v.d.

Cor Assa

Link naar reactie
Delen op andere sites



Stel je hoofdgegevens blad noemt Master.

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Master")
    Set Bereik = .Range("A2", .Range("A2:A10").Address)
    Namen = Application.Transpose(Bereik)
    i = LBound(Namen)
End With
For Each ws In Worksheets
    If ws.Name <> "Master" Then
        ws.Name = Namen(i)
        i = i + 1
    End If
Next ws
End Sub

 

 

aangepast door dotchiejack
Link naar reactie
Delen op andere sites

6 minuten geleden, dotchiejack zei:

Stel je hoofdgegevens blad noemt Master.


Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Master")
    Set Bereik = .Range("A2", .Range("A2:A10").Address)
    Namen = Application.Transpose(Bereik)
    i = LBound(Namen)
End With
For Each ws In Worksheets
    If ws.Name <> "Master" Then
        ws.Name = Namen(i)
        i = i + 1
    End If
Next ws
End Sub

 

 

Bedankt wederom dotchiejack, werkt perfect.

Link naar reactie
Delen op andere sites


Gast
Dit topic is nu gesloten voor nieuwe reacties.
 Delen

×
×
  • Nieuwe aanmaken...