naam tabblad verwijzen naar cel

[tonku]

Hallo allemaal,

Ik ben voor mijn team bezig met een file. Nu wil ik de naam van het tabblad automatisch laten wijzigen als ik de invulling van cell "D4" verander. Als ik in D4 een andere datum invoer bv 1-1-2013 moet de naam van het tabblad automatisch ook veranderen in 1-1-2013. Is dit mogelijk zonder macro? Hier snap ik nl niet zoveel van.

Groeten.

Ton

 

[HSV]

Zonder macro is dat niet mogelijk.
Wel andersom ; Als je de tabbladnaam veranderd, veranderd cel D4 ook.

 

[tonku]

Hallo Harry,

Kunt U misschien een voorzetje geven met de macro?

Groeten.

Ton

 

[HSV]

Code staat in blad1-module.

 

[tonku]

Bedankt. Dit precies wat ik zoek. Ik kan niet vinden hoe je het gedaan hebt, maar dat geeft niet. Kan het kloppen dat het alleen op het eerste tabblad werkt? Het is de bedoeling dat dit van elk tabblad nee veranderd met de d4 op dat desvetreffende tabblad. Of doe ik iets verkeerd?

Groeten.

Ton.

 

[HSV]

Druk Alt+F11 en de vba-editor opent.
Dubbelklik aan de linkerzijde op 'Blad(Blad1)'.
De code staat geschreven in het grote witte vlak.
Dit kan je doen voor elk tabblad, door de code te kopiëren en te plakken.

 

[tonku]

Toppie. Hardstikke bedankt. Ik ga er mee aan de gang.

Groeten.

Ton.

 

[HSV]

Vergeet het kopëren, en verwijder alle codes in alle bladen.
Zet onderstaande in ThisWorkbook, en het werkt evengoed.
Zo heb je maar één code nodig.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
 If Not Intersect(Target, Sh.Range("D4")) Is Nothing Then
 On Error GoTo einde:
   If Sh.Range("D4") > 0 Then Sh.Name = Sh.Range("D4")
  End If
 Exit Sub
einde:  MsgBox "Dit blad bestaat al", vbCritical, "Helaas"
End Sub