hyperlink maken

[rlo]

Hoe kan ik van het onderstaande script een hyperlink maken naar het werkblad
dat dezelfde naam heeft als de overgenomen waarde?

Dim r1 As Integer, r2 As Integer, laatste As Integer
Dim vak As String, vak1 As String, doc As String
vak = Sheets("Cursistenoverzicht").Range("x2")
If vak = "" Then Exit Sub
laatste = Range("A65536").End(xlUp).Row
r2 = 4 'waarde van de regel vanafwaar systeem namen moet neerzetten
For r1 = 1 To laatste
If Application.WorksheetFunction.CountIf(Rows(r1), vak) > 0 Then
Sheets("AbsentenInvoeren").Cells(r2, 2) = Cells(r1, 1) '<<dit moet de hyperlink worden naar een werkblad met dezelfde naam.
r2 = r2 + 1
End If
Next r1

 

[beheer25]

Even een macro opgenomen van het maken van een hyperlink.

Resultaat in VBA:

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Sheet2!A1"

Grtz,