Skjul faner - VBA

Har forsøgt at kode det du skriver



Altså skjuler, hvis der står "ikke gyldig" (med lille g) og viser hvis der står "ikke Gyldig" (med stort G) eller "Gyldig". Er dog ikke helt sikker på, at det er det du faktisk ønsker?

Hej Thor

Mange tak, indtil videre. Jeg har ikke prøvet det af endnu, da jeg lige skal præcisere, at der er tale om status som enten "Gyldig" eller "Ikke gyldig" og således ikke en tredje variant med "Ikke Gyldig" (med stort G), det var en taste fejl.

Ændrer det noget?

Vh CHC

Hej Thor

Din løsning løser til dels udfordringen, efter at jeg har rettet min tastefejl. :-)
Men jeg vil som skrevet meget gerne have mulighed for, at kunne vise alle de skjulte faner "Ikke Gyldig" igen, men det kræver vel en knap til, eller hvad?

Sub SkjulVis()
    Dim wks As Worksheet
    For Each wks In Worksheets
        If wks.Range("H9").Value2 = "Ikke gyldig" Then
            wks.Visible = xlSheetHidden
        End If
        If wks.Range("H9").Value2 = "Gyldig" Then
            wks.Visible = xlSheetVisible
        End If
    Next
End Sub

Ja, det kræver en makro mere.
Gættede på at du styrede indholdet i H9 med en formel og derfor kunne klare det med en enkelt makro.