excel tabbladen verdwijnen

[hecosys]

Hallo allemaal,

Ik heb een menublad gemaakt in excel zodat het overzichterlijker wordt en minder tabbladen staan vermeld onderin. Door middel van het menu kun je naar andere tabbladen voor gegevens invullen en grafieken bekijken. Voor de koppeling naar een andere tabblad heb ik gebruik gemaakt van VBA met de volgende code:

Sub Rechthoek17_BijKlikken()
Sheets("grafiek omzet").Visible = True
Sheets("stal 1").Select
End Sub

Vannuit het menu gaat het pefect over naar de grafiek omzet, maar nu wordt het tabblad weer zichtbaar onderin bij de menu tabblad. De grafiek heeft ook een button om terug te keren naar het menu.

Graag zou ik willen weten, wat ik verkeert doe en welke code eraan toegevoegd dient te worden. Ik heb geprobeert om het tabblad menu ook te verbergen, daar dat kan niet volgens excel, omdat er altijd 1 zichtbaar dient te zijn.

alvast bedankt,

Groetjes.

 

[E v R]

je kunt middels

ActiveWindow.DisplayWorkbookTabs = False

de tabs laten verdwijnen,

of je moet zorgen dat iedere keer als het menublad aktief is alle andere tabbladen verborgen worden.

Maar met een voorbeeldje erbij is antwoorden een stuk makkelijker..

 

[hecosys]

Thanks het werkt perfect,

maar kan je nu ook een functie toevoegen d.m.v IF functie. Maar ik weet niet wat ik bij End If moet vermelden.

In cel A1 wordt nr 1 of 2 weergegeven d.m.v. van pulldown functie.
1 = NED en 2= Duits.

Sub eco gegevens()
If Len(Worksheets("menu").Range("A1")) = 1 Then
Sheets("grafiek NL").Select
Else
If Len(Worksheets("menu").Range("A1")) = 2 Then
Sheets("grafiek DE").Select
End If (wat moet Hier staan ???)
End Sub

Thanks !!

 

[ExcelAmateur]

hecosys,

Ik denk dat het zo ook werkt.

Sub eco_gegevens()
 If Worksheets("menu").Range("A1") = 1 Then Sheets("grafiek NL").Select
 If Worksheets("menu").Range("A1") = 2 Then Sheets("grafiek DE").Select
End Sub

Je moet de volgende keer je code selecteren en dan boven in het menu op # klikken. :thumb:
Dan komt de code in een apart vak te staan.

 

[hecosys]

thanks het werkt.

 

[ExcelAmateur]

hecosys
thanks het werkt.

Rest nu nog de vraag als opgelost te zetten. :thumb: