Afhankelijk van celwaarde springen naar ander werkblad

[drune001]

Hallo,

De vraag is te stom voor woorden maar ik kom er toch niet uit

Ik heb een file met ca. 90 tabbladen. Onbegonnen werk om snel naar de juiste sheet te gaan dus. Nu heb ik een startpagina gemaakt waarin een pull-down menuutje staat (lijst in cel, dus geen los object). Onder het menuutje staat de knop "ga naar deze pagina".

Hoe kan ik in VBA checken wat de inhoud van de bewuste cel is, en afhankelijk van deze waarde naar het juiste tabblad gaan? De tabbladen zijn genummerd 001 t/m 999 en de eerste 3 karakters in de cel zijn ook 001 t/m 999.

Wie oh wie helpt mij even verder?

Sjak

 

[drune001]

En hier dan de oplossing. Ik hoorde niets, dus zelf maar een uurtje of wat aan het spitten geweest...

Ter verduidelijking: de cel met naam formuliernummer bevat de volgende formule: =LINKS(formulier;3)
De cel met naam"Formulier bevat een titel, zoals "001 - Dit is het eerste formulier"

Sub Lees_selectie_uit()

'Definieer variabelen

Dim Vestiging As String
Dim Formulier As String
Dim Formuliernummer As String
Dim Stijl, Titel1, Titel2, Response
Dim Foutmelding1 As String
Dim Foutmelding2 As String

'Vul variabelen met juiste waarde

Vestiging = Range("Vestiging")
Formulier = Range("Formulier")
Formuliernummer = Range("Formuliernummer")
Stijl = vbOKOnly + vbCritical
Titel1 = "Fout: Vestiging niet gekozen"
Foutmelding1 = "Selecteer alsjeblieft eerst" & Chr(13) & Chr(13) & "de juiste vestiging," _
& Chr(13) & Chr(13) & "voordat je doorgaat naar stap 2."
Titel2 = "Fout: Formulier niet gekozen"
Foutmelding2 = "Selecteer alsjeblieft eerst" & Chr(13) & Chr(13) & "het gewenste formulier," _
& Chr(13) & Chr(13) & "voordat je doorgaat naar stap 2."

'Controleer of er een vestiging is gekozen

If Vestiging = "* * * Selecteer de juiste vestiging * * *" _
Then
Response = MsgBox(Foutmelding1, Stijl, Titel1)
GoTo Einde
End If

'Controleer of er een formulier is gekozen

If Formulier = "* * * Selecteer gewenste formulier * * *" _
Then
Response = MsgBox(Foutmelding2, Stijl, Titel2)
GoTo Einde
End If

'Ga naar het juiste tabblad

Sheets(Formuliernummer).Activate

Einde:

End Sub