Klikken op cel en keuzemenu met hyperlinks weergeven

[HUTD]

Hallo,

Een zeer ingewikkelde vraag en titel maar ik zit eigenlijk met het volgende probleem:
Ik heb een werkblad met een klein aantal kengetallen. Ieder kengetal bevat verdiepende informatie in de vorm van grafieken die op andere werkbladen staan. Nu zou ik graag willen hebben dat ik op een bepaald kengetal klik (of een cel ernaast), vervolgens verschijnt er een lijstje waarin de grafieknamen staan van de grafieken die bij het desbetreffende en aanklikte kengetal horen. Elke grafieknaam in dit lijstje zou dan een hyperlink moeten zijn die mij naar de gevraagde grafiek stuurt. Kan dit? En zoja, hoe?

Dus bij het klikken op het kengetal of de cel ernaast resulteert in geen verandering van schermen, het dient alleen een extra lijstje weer te geven met keuze mogelijkheden die vervolgens aangeklikt kunnen worden d.m.v. hyperlinks.

Succes ermee en alvast bedankt voor jullie hulp!

Groeten.

 

[koster1984]

Als je nou een voorbeeldbestand had toegevoegd was het allemaal wat makkelijker voor de helpers, maar ik heb maar een simpel voorbeeldje voor je gemaakt.

In cel D2 kun je een grafiek kiezen en d.m.v. van onderstaande code in vba word je naar de desbetreffende sheet gestuurt:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = [D2] Then
If Target Is Nothing Or Target = "Kies grafiek" Then Exit Sub
    If Target = "Grafiek 1" Then Sheets(2).Select
    If Target = "Grafiek 2" Then Sheets(3).Select
End If
End Sub

Hieronder het bestand:

 

[Warme bakkertje]

Ik zou dan eerder een extra werkblad maken met in de 1ste rij kolomkoppen.
Dan in kolom A het kengetal( voor elke grafieknaam herhalen), kolom B de grafieknaam en kolom C de hyperlink naar de grafiek.( of het desbetreffende werkblad)
Hierop kan dan gefilterd worden en de resultaten kunnen geplaatst worden in een ListBox.
Door dan in de ListBox op een grafieknaam te klikken kan dan de overeenkomstige hyperlink uit kolom C geactiveerd worden.