Tabblad

[xbox360]

Hoi,
is er misschien een mogelijkheid dat je een een tabblad menu ( bijvoorbeeld ) een dropmenu kan maken met daar in de tabbladen die je kan oproepen en ook meteen open gaat als je de betreffend tabblad oproept?
alvast bedankt

 

[HSV]

Maak een combobox van de ActiveX-besturingselementen aan in blad 'menu'.
Zet in moduleblad 'menu' onderstaande codes.

Private Sub ComboBox1_Change()
 Application.Goto Sheets(ComboBox1.Value).Cells(1)
End Sub

Private Sub Worksheet_Activate()
Dim sh As Worksheet, sn
    For Each sh In Sheets
      sn = sn & IIf(sh.Name <> ActiveSheet.Name, "|" & sh.Name, "")
    Next sh
 ComboBox1.List = Split(Mid(sn, 2), "|")
End Sub

 

[xbox360]

Helaas
als ik een combo aanmaak blijft de combo leeg
en ja ik heb jou code erin gedaan

 

[HSV]

Switch even van tabblad en terug.

 

[xbox360]

ik zeg nu TOP
maandag ga ik even een opzet doen op mijn werk.
wordt vervolgt:thumb:

 

[xbox360]

Het werkt perfect
THNX