Overzicht tabbladen met link naar tabblad

[riekss]

ik ben bezig met een overzicht van facturen die constant worden bijgewerkt. een factuur is een tabblad met een sjabloon.

Het volgende overzicht heb ik gemaakt.

Private Sub Worksheet_Activate()
Dim i As Integer
Dim AantalFacturen As Integer
Sheets("overzicht_").Select
On Error Resume Next
AantalFacturen = Sheets.Count - 1
For i = 1 To AantalFacturen
Range("A" & i + 1) = Sheets(i).Name
Range("B" & i + 1) = Sheets(i).Range("B8")
Range("C" & i + 1) = Sheets(i).Range("B32")
Range("D" & i + 1) = Sheets(i).Range("c43")
Range("E" & i + 1) = Sheets(i).Range("b2")

Next i
End Sub

Dit werkt prima en is constant up to date.
Ik krijg echter wel af en toe mijn tabbald "menu" meederde keren in deze lijst.

Maar mijn echte vraag is als volgt.

Ik wil graag in het overzicht naast de informatie die uit het tabblad wordt gehaald...zoals naam, datum bedragen etc ook een direct link naar het desbetreffende tabblad.

iemand een suggestie?

alvast bedankt!

 

[Leotaxi]

met deze code achter sheet overzicht
kan je gewenst blad in kolom A selecteren, en klaar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 1 Then
    Exit Sub
End If
Sheets(Target.Value).Select
End Sub

mvg
Leo

 

[riekss]

Ontzettend bedankt voor je snelle reactie, ik was al erg lang opzoek naar deze oplossing (y)

 

[Leotaxi]

mooi zo, kan je nog wel even de vraag als opgelost zetten ?


mvg
Leo