Tabbladnaam de naam geven van een cel

[Norman Scheuter]

Hallo,

Ik heb ook een andere vraag.

Is het mogelijk om de naam van een tabblad, de naam van een cel te geven, bijv. cel B3 noem ik "test" dat dan het tabblad de naam test krijgt?

Al vast bedankt.

Groetjes,

Norman

 

[ExcelAmateur]

Norman,

Gebruik eens rechtsboven - Doorzoek dit forum
Het is al zo vaak gevraagd.

 

[Norman Scheuter]

ExcelAmateur,

Mijn excuses, ik had Google al afgezocht en niks gevonden, alleen andersom.

Ik heb het gevonden.
Dank je.

Norman.

 

[VenA]

Zet deze code in de module van Thisworkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Target.Address = "$B$3" And Target <> "" And IsError(Evaluate([b3] & "!A1")) Then Sh.Name = Left([b3], 31)
End Sub

Sommige tekens mogen niet in de naam voorkomen maar dat laat ik aan jou over of hier ook op getoetst moet worden.

 

[HSV]

Voor eventuele spaties in je bladnaam.

IsError(Evaluate([SIZE=4][COLOR=#ff0000]"'"[/COLOR][/SIZE] &[b3] & "[COLOR=#ff0000][SIZE=4]'[/SIZE][/COLOR]!A1")) then sh.name = target