Zoekfunctie tabbladen/sheets in excel

[jerogub]

Hoi,

Ik heb een exel bestand met een kleine 100 tabbladen. Omdat dit zo'n groot aantal is, heb ik geprobeert via een userform een zoekfunctie te maken om gemakkelijk bij de juiste sheet uit te komen. Maar ik zou eigenlijk willen dat ik niet precies de goede sheetnaam in hoef te vullen in dit userform. Dus als ik 2 sheets heb die "piet1" en "piet2" heten, en ik zoek naar piet, dat als de eerste sheet niet de goede is, de 2e gevonden wordt.

Op het moment heb ik geen fatsoenlijke code om te laten zien wat ik al heb. De functie die ik nu heb is met activesheet = naam, en naam is wat ik invul in de userform. Niet echt wat ik wil dus...

Kan iemand mij helpen? Alvast bedankt!

 

[jerogub]

Ik heb eens iets geprobeert. Ik heb nu dit in de userform staan:

Private Sub Ok_Click()

Dim colname As String
Dim gevonden As String

colname = Me!colname
gevonden = "false"

Do Until gevonden = "true"
If Worksheets(colname).Activate = True Then
        If MsgBox("Is dit de collega die je zoekt?", vbYesNo) = vbYes Then
        gevonden = "true"
        Exit Sub
        Else
        'volgende zoeken
    End If
    Else
    MsgBox ("niet gevonden")
    gevonden = "true"
End If
Loop

Unload Me

End Sub

Maarja, hierin moet ik dus de precieze naam opgeven... Dat wil ik dus niet... Iemand die kan helpen?? Alvast bedankt!!!

 

[jerogub]

Ik heb op het moment een work-around gemaakt. Hij werkt nu, maar is naar mijn mening verreweg van perfect.

Ik heb alle namen van de tabbladen verzamelt in 1 tabblad. Ik laat excel vragen welke naam gezocht moet worden. Die wordt in deze ene tabblad gezocht. Zodra die gevonden is, dan wordt dat de active sheet. Maar een minder omslachtige oplossing is gewenst. Iemand een idee? Thanks!