ark vis/skjul

Jeg forudsætter at du har et ark fremme, der hedder front. (den med datavalideringscellen), Datavaideringscellen er A1

Denne kode indsættes i arkets eget kodemodul (højreklik på erkfanen og vælg "Vis programkoder".

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh
If Not Intersect(Target, Range("A1")) Is Nothing Then
    For Each sh In ActiveWorkbook.Sheets
        'her ændre du Front til det navn du ønsker
        If sh.Name <> "Front" Then
            sh.Visible = xlSheetHidden
        End If
    Next
    Sheets(Target.Value).Visible = xlSheetVisible
End If
End Sub

Det virkede ikke for mig.
Min front ark hedder: "humørbarometer" og datavalideringscelle er "C8" og data er: "oktober_2004" , "november_2004" og "december_2004".
arkkene som skal vises eller skjules hedder: "bem_oktober_2004" , "bem_november_2004" og "bem_december_2004".

Ok, det stemmer jo ikke helt med dit 1. eksempel.
I denne her skal data i datavalideringen bare indgå i arknavnet.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh
If Not Intersect(Target, Range("C8")) Is Nothing Then
    For Each sh In ActiveWorkbook.Sheets
        If sh.Name <> "Humørbarometer" Then
            If Not UCase(sh.Name) Like "*" & UCase(Target.Value) & "*" Then
            sh.Visible = xlSheetHidden
            Else
            sh.Visible = xlSheetVisible
            End If
        End If
    Next
End If
End Sub

Det var smart og det virkede.
Har du mulighed for at skrive kommentar til koden, så jeg kan forstår hvornår sker hvad.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh
'Hvis Target (cellen der er ændret), er celle C8
If Not Intersect(Target, Range("C8")) Is Nothing Then
    'gennemgå alle ark i projektmappen
    For Each sh In ActiveWorkbook.Sheets
        'hvis arkets navn er forsk. fra "Humørbarometer"
        '(for ikke at få skjult "humørbarometer)
        If sh.Name <> "Humørbarometer" Then
            'hvis ikke arknavnet (store bogstaver) ligner det, der står i C8 (store bogstaver)
            'så skjul arket ellers, hvis det ligner så vis arket
           
            If Not UCase(sh.Name) Like "*" & UCase(Target.Value) & "*" Then
            sh.Visible = xlSheetHidden
            Else
            sh.Visible = xlSheetVisible
            End If
        End If
    Next
End If
End Sub

Hvis du er i tvivl om hvad LIKE laver, så tag et kig i vba-hjælpen.
LIKE er relativ avanceret.

Jeg takker

det var så lidt :-)