case functie

[dekrant]

Goeiemorgen allemaal,

Ikheb een vraagje en ik hoop dat iemand mij kan helpen.
Ik heb de volgende macro geschreven:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Range("al2")
Select Case Target
Case "M3: Augustus - Januari"
Columns("C:O").EntireColumn.Hidden = True
Columns("Af:Ah").EntireColumn.Hidden = True
Columns("AE").EntireColumn.Hidden = False
Range("AE6") = "tekst"
Case "M8: Augustus - Januari", "E8: Februari - Juni"
Columns("C:O").EntireColumn.Hidden = False
Columns("Af:Ah").EntireColumn.Hidden = False
Columns("AE").EntireColumn.Hidden = True
Case "E3: Februari - Juni"
Columns("I:J").EntireColumn.Hidden = True
Columns("Af:Ah").EntireColumn.Hidden = True
Columns("AE").EntireColumn.Hidden = False
Range("AE6") = "tekst"
Case Else
Columns("I:J").EntireColumn.Hidden = True
Columns("Af:Ah").EntireColumn.Hidden = True
Columns("AE").EntireColumn.Hidden = True
End Select
End Sub

Als ik in cel al2 de waarde M3: Augustus - Januari heb gezet en ik selecteer daarna de waarde E3: Februari - Juni of bijv. M6: Augustus - Januari houdt excel de kolommen C t/m O toch verborgen

Wat doe ik fout?
Alvast bedankt

 

[edmoor]

Als je het eerst eens leesbaar schrijft dan zie je de fout waarschijnlijk zelf wel. Die Set opdracht is trouwens niet nodig.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Select Case Range("AL2")
        Case "M3: Augustus - Januari"
            Columns("C:O").EntireColumn.Hidden = True
            Columns("AF:AH").EntireColumn.Hidden = True
            Columns("AE").EntireColumn.Hidden = False
            Range("AE6") = "tekst"
            
        Case "M8: Augustus - Januari", "E8: Februari - Juni"
            Columns("C:O").EntireColumn.Hidden = False
            Columns("AF:AH").EntireColumn.Hidden = False
            Columns("AE").EntireColumn.Hidden = True
        
        Case "E3: Februari - Juni"
            Columns("I:J").EntireColumn.Hidden = True
            Columns("AF:AH").EntireColumn.Hidden = True
            Columns("AE").EntireColumn.Hidden = False
            Range("AE6") = "tekst"
        
        Case Else
            Columns("I:J").EntireColumn.Hidden = True
            Columns("AF:AH").EntireColumn.Hidden = True
            Columns("AE").EntireColumn.Hidden = True
    End Select

End Sub

 

[dekrant]

dankje