Automatisch aanmaken hyperlink die afhankelijk is van celinhoud

[Leenroc]

Hoi,

Ik wil graag in een totaalblad hyperlinks maken naar een tabblad.
Dat is me gelukt. Maar wil eiegelijk dat de hyperlink afhankelijk is van een stuks tekst oftwel de tabblad naam.

In de bijlage een voorbeeld.

Hoop dat jullie me kunnen helpen.

Grt Leenroc

 

[Elsendoorn2134]

Leenroc,

De volgende code maakt een copy van het laatste tabblad en zet op het tabblad "Totaal" een
hyperlink naar dit nieuwe tabblad.

Public Sub MaakTabbladEnHyperlink()

Dim sNewSheet As String

'Laatst bekende naam opzoeken
sNewSheet = Sheets(Sheets.Count).Name
'Nieuw sheet aanmaken
Worksheets(sNewSheet).Copy After:=Worksheets(sNewSheet)
'Naam van de net aangemaakte sheet achterhalen.
sNewSheet = Sheets(Sheets.Count).Name

'Hyperlink aanmaken.
Sheets("totaal").Range("A1").End(xlDown).Hyperlinks.Add _
    Anchor:=Sheets("totaal").Range("A1").End(xlDown).Offset(1, 0), Address:="", SubAddress:= _
    "'" & sNewSheet & "'!A1", TextToDisplay:=sNewSheet


End Sub

Zet op het tabblad Totaal een knop naar deze macro.

Veel Succes.

 

[mvw64]

Misschien kan u er zo iets mee ?