Tabblad zichtbaar maken

[Roma]

Beste,

Ik heb deze code van Edmoor gekregen. Deze code werkt goed.
Wanneer de tabbladen verborgen zijn lukt het niet meer. (logisch)
Ik heb van alles geprobeerd maar het lukt mij niet.
Wie weet de oplossing hiervoor

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

 

[OctaFish]

Probeer 'm zo eens:

Private Sub Workbook_Open()
Dim Maand As Variant
Maand = Array("Januari", "Februari", "Maart", "April", "Mei", "Juni", "Juli", "Augustus", "September", "Oktober", "November", "December")
    
    If Sheets("Schema").Range("C12") = "JA" Then
        With Sheets(Maand(Month(Sheets("Schema").Range("G17"))))
            .Visible = True
            .Select
        End With
    End If
    
End Sub

 

[Roma]

Michel,
Dank voor je reactie,
Helaas deze werkt ook niet

het subscript valt buiten het bereik

With Sheets(Maand(Month(Sheets("Schema").Range("G17"))))[/CODE[/COLOR]]

 

[OctaFish]

Ik heb jouw code letterlijk geplakt in een willekeurig bestand, en hij werkte prima. Ik zou zeggen: doe er een voorbeeldje van jezelf bij.

 

[Roma]

Michel,
bedankt voor je reactie.
hierbij een voorbeeld

 

[OctaFish]

Eén regeltje vergeten, die belangrijk is bij het declareren van de matrix. Ken gebeuren

[B]Option Base 1
[/B]
Private Sub Workbook_Open()
Dim Maand As Variant
Maand = Array("Januari", "Februari", "Maart", "April", "Mei", "Juni", "Juli", "Augustus", "September", "Oktober", "November", "December")
        If Sheets("Schema").Range("C12") = "JA" Then
        With Sheets(Maand(Month(Sheets("Schema").Range("G17"))))
            .Visible = True
            .Select
        End With
    End If
    
End Sub

 

[Roma]

Michel,
Ik heb in mijn bestand geplakt en het werkt super.
bedankt voor je medewerking

 

[OctaFish]

Voor de leut nog een derde manier om de namen van de maanden te genereren, zonder de kans op typfouten

Option Base 1

Private Sub Workbook_Open()
Dim Maand(12) As String
Dim i As Integer
    For i = 1 To 12
        Maand(i) = StrConv(Format(DateSerial(Year(Date), i, 1), "mmmm"), vbProperCase)
    Next i
    If Sheets("Schema").Range("C12") = "JA" Then
        With Sheets(Maand(Month(Sheets("Schema").Range("G17"))))
            .Visible = True
            .Select
        End With
    End If
End Sub

 

[Roma]

Fantastisch

 

[OctaFish]

Volgens mij heb je genoeg oplossingen om de vraag op <Opgelost> te kunnen zetten

 

[Roma]

sorry