2 of 3 werkbladen terug!!

[DZP]

Onderstaande code heb ik via een eerdere vraag gekregen (Marcel) en die zorgt dat ik terug kan naar de voorgaande geactiveerde sheet (daar heb ik dus iets ingevuld). Dat werkt perfect!!

Private Sub CommandButton1_Click()

    Dim SheetTeller As Long
    Dim Sheetvolgnummer As Long
    
    If Len(SheetWaarde) > 0 Then
    SheetTeller = ActiveWorkbook.Sheets.Count
    Sheetvolgnummer = 1
    'MsgBox SheetWaarde
    For Sheetvolgnummer = 1 To SheetTeller
    
    If Sheets(Sheetvolgnummer).Name = SheetWaarde Then
    Exit For
    Else
    End If
    Next Sheetvolgnummer
    
    Sheets(Sheetvolgnummer).Activate
    
    Else
    End If
End Sub

Maar mijn volgende vraag is nu: kan ik via deze code ook bijvoorbeeld 2 of 3 sheets terug en zoja, wat moet ik dan aanpassen??

P.s.: Werk bestandje ook nog bijgesloten (macro staat achter sheet maa).

 

[Finch]

Eerst en vooral beste wensen voor 2008 aan alle helpmij mensen.

Ik heb in een andere thread al eens geopperd dat die code effcienter kan. Gebruik maar even de search.
Om op je vraag te antwoorden. Dat kan, maar dan ga je meer variabelen nodig hebben om de laatste, de voorlaatste, en de sheets daarvoor te capteren. Hiervoor is het gebruik van een array aangewezen, maar niet strikt noodzakelijk.

Je kan natuurlijk ook alle bezochte sheets opslagen in een werkblad en dan kan je teruggaan naar eendere welke sheet.

 

[DZP]

Ik heb voor mij de oplossing in een andere thread gevonden.
(Op weeknummer openen).
In ieder geval bedankt voor de moeite.
Bij deze sluit ik dit onderwerp af dmv het groene vinkje v