Dropdown keuze met hyperlink

[NWillemsen]

Hoi,

ik heb een document met zo'n 40 tabbladen.
Om hier makkelijk en snel tussen te schakelen heb ik op iedere pagina een lijst met namen van deze tabbladen gezet met hyperlinks naar de betreffende map.

Het lukt om deze lijst onder een dropdown menu te krijgen om een keuze te maken, maar dan werkt de hyperlink niet meer.

Is daar een mogelijkheid voor om deze te behouden in het dropdown menu?

Groeten,
Norbert

 

[Revdutchie]

Waarom ga je inn je vorige vraag niet verder ?
http://www.helpmij.nl/forum/showthread.php?t=493213

Daar heb ik overigens ook aangegeven hoe je snel naar tabs kan springen, je wil namelijk iets maken wat al standaard in excel zit.

 

[NWillemsen]

het leek me een andere vraag... wel met hetzelfde doel zoals je terecht opmerkt

Jou oplossing is op zich prima, maar met rechtermuisklik linksonderin zie je "slechts" 15 werkbladen.
Ik had gehoopt iets te kunnen maken met 1 muisklik op een keuzemenu, de juiste selecteren en klaar... niet dat dit noodzakelijkerwijs sneller is, maar zal voor mijn medegebruikers (die, nog meer dan ik, excel-leken zijn) makkelijker te vinden zijn.

Groeten,
Norbert

 

[danny147]

Beste NWillemsen

Zie bestandje.

Groetjes Danny. :thumb:

 

[Revdutchie]

Gevonden op Internet

Gebruikt een blad met de naam Index om alle tabs te plaatsen, zet in alle andere tabladen een link in A1 (is te wijzigen) naar het indexblad.
Het Indexblad vernieuwt zichzelf automatisch bij toevoegen of verwijderen van tabbladen.

LINK NAAR DE PAGINA, BETER EERST FF LEZEN!
http://www.ozgrid.com/VBA/sheet-index.htm

Private Sub Worksheet_Activate()
Dim wSheet As Worksheet
Dim l As Long
l = 1
    With Me
        .Columns(1).ClearContents
        .Cells(1, 1) = "INDEX"
        .Cells(1, 1).Name = "Index"
    End With

    For Each wSheet In Worksheets
        If wSheet.Name <> Me.Name Then
            l = l + 1
                With wSheet
                    .Range("A1").Name = "Start_" & wSheet.Index
                    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", _
                    SubAddress:="Index", TextToDisplay:="Back to Index"

                End With

                Me.Hyperlinks.Add Anchor:=Me.Cells(l, 1), Address:="", _
                SubAddress:="Start_" & wSheet.Index, TextToDisplay:=wSheet.Name

        End If
    Next wSheet
End Sub

 

[Roncancio]

Waarom ingewikkeld doen?

In bijgevoegd bestand staat in het bereik A1:A3 de namen van de werkbladen.
Door 1 van de namen te selecteren, wordt de betreffende werkblad getoond.

Met vriendelijke groet,


Roncancio

 

[Revdutchie]

@Roncancio,

De door ,mij geposte oplossing past de namen dynamisch aan bij toevoegen of verwijderen tabbladen. Dat lijkt me makkelijker.

 

[Warme bakkertje]

Plaats op elk tabblad eenCombobox uit de Werkset Besturingselementen
Plaats onderstaande in ThisWorkbook zodat bij het openen v/h bestand elke combobox gevuld wordt met de actueel aanwezige tabbladen

Private Sub Workbook_Open()
  For Each sh In Sheets
    c0 = c0 & "|" & sh.Name
  Next
  For Each sh In Sheets
    sh.ComboBox1.List = Split(Mid(Replace(c0, "|" & sh.Name, ""), 2), "|")
  Next
End Sub

Plaats dan achter elk tabblad onderstaande zodat je vanuit elk werkblad naar een ander willekeurig werkblad kan springen

Private Sub ComboBox1_Change()
    On Error Resume Next
    Application.Goto Sheets(ComboBox1.Value).[A1]
    ComboBox1.Value = ""
End Sub

 

[huijb]

deze was eerder http://www.helpmij.nl/forum/showthread.php?p=3160941#post3160941