Tabblad naam uit cel

[Cor-Assa]

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

[JeanPaul28]

Even vlug handmatig gebeurt

[Cor-Assa]

34 minuten geleden, JeanPaul28 zei:

Even vlug handmatig gebeurt

? ? ? ? ?

Wat bedoel jij?

Handmatig heeft niets met VBA of iets dergelijks te maken?

[Cor-Assa]

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.

[kweezie wabbit]

18 uren geleden, Cor-Assa zei:

Bedankt wederom dotchiejack, werkt perfect.

Dan kunnen we dit afsluiten.

Succes nog.