Macroknap som skjuler/viser specifierede kolonner og tekst

Ja - det skulle nok kunne lade sig gøre - men opgaven skal lige præciseres:

- I VBA kan der opbyggesen Userform (dialogboks). I denne kunne der i en liste, vælges den eller de kolonner, der skulle vises/skjules.

- Teksterne: Er det hele området under eet, der skal vises/skjules - eller er det de enkelte celler i området?

Kolonnerne er predefineret, hvorfor der ikke skal være en liste, men blot en knap.

Teksten skal vel blot farves samme farve som baggrunden - Det er ligegyldigt om teksten i og for sig stadig er der, da arket skal printes/pdf'es. Da vil man ikke kunne se teksten hvis denne er samme farve som baggrunden.

Koden indlægges på det relevante Ark.
Opfret en knap - og forbind med makroens navn: VisSkjul


Dim kListe As Variant
Const området = "L2:N8"
Public Sub visSkjul()
    kListe = Array("B", "C", "E", "F", "H", "J", "K", "N", "O", "P", "Q")
   
    Application.ScreenUpdating = False

    For k = 0 To UBound(kListe)
        With ActiveSheet
            kol = kListe(k)
           
            .Columns(kListe(k)).Select
            If Selection.EntireColumn.Hidden = True Then
                Selection.EntireColumn.Hidden = False
                Range(området).Font.ColorIndex = 0
            Else
                Selection.EntireColumn.Hidden = True
                Range(området).Font.ColorIndex = 2
            End If
        End With
    Next k
   
    Application.ScreenUpdating = True
End Sub

Det virker :)

Send svar.

Fint - der ligger allerede svar på indlæg #3