Met celwaarde een tabblad openen

[HMDH]

ik zou graag een VBA code hebben welke bij een bepaalde waarde in een bepaalde cel een bepaald tabblad opent.

In een cel, zeg; A1 kunnen getallen komen van 1 t/m 25
Bij iedere waarde moet er een reeds bestaand tabblad worden geopend.

v.b. als de cel A1 van tabblad "Keuze maken" de waarde 4 heeft, dan met tabblad "Schubert" openen.

Is de cel waarde bv 12 dan moet het tabblad "Test 12" worden geopend.

Ik heb geen idee of dit met 1 macro gemaakt kan worden.

 

[edmoor]

Tuurlijk.
Je zal wel een lijstje moeten maken met die nummer en bijbehorende bladnamen.

 

[cow18]

dat wordt snel zoiets

Sub testing()
     With Sheets("Blad1").Range("A1")
           If Not IsNumeric(.Value) Then MsgBox "tekst": Exit Sub
          If 1 <= .Value And .Value <= ActiveWorkbook.Sheets.Count Then
               Sheets(.Value).Select
          Else
               MsgBox "verkeerd getal"
          End If
     End With
End Sub

 

[JEC.]

Index is niet gelijk aan sheetnaam dus je raakt aan twee gedefinieerde arrays of een lijstje in een tabblad zelf.

Met een lijstje in je tabblad kun je het achteraf gemakkelijk wijzigen.

 

[edmoor]

Voorbeeldje van 2 van de vele mogelijkheden.
Vul een rijnummer in C2 in of dubbelklik in kolom A op een bladnaam:

 

[HMDH]

Ik heb 25 tabbladen aangemaakt.
Als ik jullie reacties leest is dit niet helemaal de bedoeling denk.

Ik zal het betreffende document meesturen.
Mogelijk kan er iets slimmers worden aangebracht om het groene pijltje op blad "Keuze maken"

Een beetje hulp kan ik hierbij wel gebruiken.

 

[AD1957]

Zo ?

 

[HMDH]

@AD1957

bedankt, ziet er goed uit.
Is het mogelijk om in de VBA code op te nemen dat de tabbladen worden geopend als deze zijn verborgen??
En, hoe kan ik een reeks verborgen tabbladen in 1x weer zichtbaar maken??

 

[AD1957]

probeer het eens zo.

Sub Componisten()
     naam = Sheets("Keuze maken").Range("C2").Value
     Sheets(naam).Visible = True
     Application.Goto Sheets(naam).Range("A1")
  
End Sub

Sub Keuzemaken()
   ActiveSheet.Visible = False
   Application.Goto Sheets("Keuze maken").Range("A1")
End Sub

Sub MaakZichtbaar()
For i = 1 To ThisWorkbook.Sheets.Count
    Sheets(i).Visible = True
Next
End Sub

 

[AD1957]

En als voorbeeld voor het verbergen tabbladen.

Sub Verberg()
For i = 1 To ThisWorkbook.Sheets.Count
    If Sheets(i).Name <> "Keuze maken" And _
       Sheets(i).Name <> "Componisten" And _
       Sheets(i).Name <> "Muziek stukken" Then
       Sheets(i).Visible = False
    End If
Next
End Sub

 

[HMDH]

Ik heb het e.e.a. geprobeerd maar blijkbaar lukt het mij niet, of begrijp ik niet welke tabbladen er verborgen of zichtbaar worden.
Bij mij gebeurd er niet veel.
Vermoedelijk zet ik de VBA code niet op de goede plaats of moet ik nog iets anders aanpassen.

 

[AD1957]

Hier een voorbeeld.
Voor het verbergen van bladen kun je de Sub Verberg() zelf aanpassen.