Juiste maand opstarten

[Roma]

Beste allemaal,

Ik wil graag een tabblad in de juiste maand opstarten.
Het plaatsen van 1 maand in de formule lukt wel maar bij meerde maanden krijg ik een foutmelding.
Ik weet niet wat ik verkeerd heb gedaan.
Alvast bedankt voor jullie medewerking.

 

[VenA]

Maak gebruik van gegevensvalidatie. Wat je verder wil kan ik uit de vraag en de code niet opmaken.

 

[HSV]

Private Sub Workbook_Open()
 Sheets(Application.GetCustomListContents(4)(Month(Date))).Activate
End Sub

 

[Roma]

Beste Harry,
Dank voor de code.
Het is de bedoeling dat men de keuze kan maken: wel of niet in de juiste maand opstarten
Weet ook hoe ik dat moet doen

 

[HSV]

Zo?

Private Sub Workbook_Open()
 With Application
   If LCase(Sheets("Welkom").Range("C12").Value) = "ja" Then
     .Goto Sheets(.GetCustomListContents(4)(Month(Date))).Cells(1)
    Else
     .Goto Sheets("Welkom").Cells(1)
   End If
 End With
End Sub

 

[Roma]

Geweldig. Dit is wat ik zoek.
Kan ik het via een cel in het tabblad ook uitschakelen?

 

[HSV]

Wat wil je uitschakelen?

 

[Roma]

Sorry,
Jij bent een Superman.:thumb:
Ik ben blond en kan niet goed lezen.
Het is gelukt.
Bedankt voor je inzet