Hyperlink automatisch genereren op nieuwe tabblad

[mahirzayn]

Goedemiddag allen,

Ik ben net lid op deze forum maar lees al een tijdje mee.
Ik heb nu echter een vraag die ik niet heb kunnen vinden op de forum.

Ik heb in excel een 'basis' blad aangemaakt waar ik mijn gegevens registreer. Deze kopieert dan automatisch (na het vullen van kolom 2) mijn hele rij aan gegevens door naar een nieuw tabblad. Voor het nieuwe tabblad gebruikt Excel mijn andere tabblad 'Projectblad' als layout.
Dit laat ik middels een macro automatisch doen.

Dit is de macro:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 And Target <> "" Then
  If IsError(Evaluate("'" & Target & "'!A1")) Then
    Sheets("Projectblad").Copy , Sheets(Sheets.Count)
    With ActiveSheet
      .Name = Target
      .[B11] = Target
    End With
  End If
End If
End Sub

Nu wil ik dat die bij het aanmaken van een nieuw tabblad ook automatisch een hyperlink hiernaar wordt gemaakt in column 2 van mijn basisblad.

Kan iemand mij opweg helpen?

Alvast bedankt

 

[HSV]

If IsError(Evaluate("'" & Target & "'!A1")) Then
[COLOR=#ff0000]     target.hyperlinks.add target, "", "'" & target.value & "'!A1"[/COLOR]
    Sheets("Projectblad").Copy , Sheets(Sheets.Count)

 

[mahirzayn]

Vriendelijk bedankt! Het werkt.