Eén navigatieknop met variabele waarde om tabbladen te openen.

[AmaProg]

Beste,

Om het aantal knoppen op mijn hoofdblad te beperken zou ik met één navigatieknop, afhankelijk van de waarde die de knop op dat moment heeft, naar het desbetreffende tabblad willen gaan.

De variabele waarde van de navigatieknop werkt... Deze neemt de waarde aan van cel M6. Nu er nog in slagen om het desbetreffende tabblad te openen.
Ik had iets geprobeerd als Worksheets(Range("M6")).Select, maar dat schijnt niet te werken.

PS Dit is slechts een vb bestand

Alvast dank bij voorbaat.Bekijk bijlage Navigatieknop met variabele waarde.xlsm

 

[ExcelAmateur]

Bedoel je zo iets?

 

[AmaProg]

ExcelAmateur,

Fantastisch! Uw code werkt perfect! Een dikke MERCI
Heb er zelf nog een foutcode aan toegevoegd... En hier loop ik weer vast, blijkbaar. Hij geeft nu steeds het foutbericht, ook als ik een bestaand jaar kies.

Sub Navigatie_Dienstlijst_xxxx()
'
'   Navigeer naar Dienstlijst xxxx
'   
'
Dim Dienstlijst_xxxx As String
Dim Antwoord As String

  Dienstlijst_xxxx = Range("M6").Value
  On Error Resume Next
    Antwoord = MsgBox("Het dienstjaar waar U naar verwijst is momenteel nog niet beschikbaar", vbOKOnly, "  Opgelet!")
  Exit Sub
  Sheets(Dienstlijst_xxxx).Activate
'
End Sub

 

[ExcelAmateur]

AmaProg,

Probeer het eens zo;

Sub Navigatie_Dienstlijst_xxxx()
'   Navigeer naar Dienstlijst xxxx
Dim Dienstlijst_xxxx As String
Dim Antwoord As String

  Dienstlijst_xxxx = Range("M6").Value
  On Error Resume Next
  If Sheets(Dienstlijst_xxxx) <> Range("M6").Value Then
    Antwoord = MsgBox("Het dienstjaar waar U naar verwijst is momenteel nog niet beschikbaar", vbOKOnly, "  Opgelet!")
    Exit Sub
  End If
  Sheets(Dienstlijst_xxxx).Activate
End Sub

@AmaProg;
Ik heb het foutje verbeterd.
Bedankt dat je me erop gewezen heb.

 

[AmaProg]

Beste EA,

Alvast bedankt want je hebt me goed op weg geholpen, doch werkte jouw versie niet.
Correctie van één regel en het loopt als een trein :

If sheets(Dienstlijst_xxxx )<> Range("M6").Value Then

Deze vraag is dus OPGELOST :d

Bedankt voor alle hulp.