Opstarten in de huidige maand

[Roma]

Ik heb een excelbestand waarin o.a. 12 maanden staan.
Excel wordt nu automatisch opgestart met tabblad schema.
Ik wil graag dat de gebruiker een keuze kan maken of hij in de huidige maand wil opstarten
wie kan mij helpen

 

[edmoor]

Je wilt dat bij het openen van het document de vraag wordt gesteld of de gebruiker direct naar het tabblad van de huidige maand wil gaan?

 

[Roma]

klopt. ja of nee in te stellen op tabblad schema

 

[edmoor]

Dan heb je deze nodig:

Private Sub Workbook_Open()
    Dim maand(12) As String
    
    maand(1) = "Januari"
    maand(2) = "Februari"
    maand(3) = "Maart"
    maand(4) = "April"
    maand(5) = "Mei"
    maand(6) = "Juni"
    maand(7) = "Juli"
    maand(8) = "Augustus"
    maand(9) = "September"
    maand(10) = "Oktober"
    maand(11) = "November"
    maand(12) = "December"
    
    If Sheets("Schema").Range("C12") = "JA" Then
        Sheets(maand(Month(Sheets("Schema").Range("G17")))).Select
    End If
    
End Sub

Bekijk bijlage Maand opstarten.xlsm

 

[Roma]

toppie bedankt

 

[Warme bakkertje]

Of.

Private Sub Workbook_Open()
    If Sheets("Schema").Range("C12") = "JA" Then
        Application.Goto Sheets(Choose(Month(Date), "Januari", "Februari", "Maart", "April", "Mei", _
            "Juni", "Juli", "Augustus", "September", "Oktober", "November", "December")).Range("G17")
    End If
End Sub