Afkrydsningsfelter og vis-knap

Mulighed:

Det kan udføres via VBA ved højreklik på f.eks. række 1 kolonnerne C & F. Disse kolonner markeres med en farve. Farven kan fjernes ved fornyet klik.

Kolonne A forventes at indeholde data. Derfor kan et klik i A1 anvendes til at skjule alle kolonner, der ikke er farvemarkeret.

Alle kolonner vises igen ved højreklik i A1. Farven i kolonner kunne  f.eks. fjernes hvis dobbeltklik i A1.

Hej

Tak for dit forslag. Jeg er ikke super-bruger af excel, men det du foreslår er ikke helt det jeg har i tankerne.

Det skal være meget brugervenligt for andre at anvende - derfor tror jeg ikke dit forslag kan bruges desværre. Eller tager jeg fejl, og misforstår det du skriver?

Prøver at lave en model, som jeg kan sende til din adresse?

Ja tak, det må du meget gerne gøre. Skal jeg sende dig en skabelon først, så du kan se lidt mere hvad jeg mener?

Er næsten klar til afsendelse..

Const antalSelskaber = 11
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Rem Ved højreklik
    If InStr(Target.Address, ":") = 0 Then
        If Target.Column >= 2 And Target.Row = 1 And Target <> "" Then
            If Target.Interior.ColorIndex = 6 Then
                Columns(Target.Column).Interior.ColorIndex = xlColorIndexNone
            Else
                Columns(Target.Column).Interior.ColorIndex = 6
            End If
            Cancel = True
        Else
            If Target.Address = "$A$1" And Target.Interior.ColorIndex = xlColorIndexNone Then
                viskunMarkeredeKolonner
                Target.Interior.ColorIndex = 6
                Cancel = True
            Else
                If Target.Address = "$A$1" And Target.Interior.ColorIndex = 6 Then
                    visAlleKolonner
                    Target.Interior.ColorIndex = xlColorIndexNone
                    Cancel = True
                End If
            End If
        End If
    End If
End Sub
Private Sub viskunMarkeredeKolonner()
Dim kol
    For kol = 2 To antalSelskaber + 1
        If Cells(1, kol).Interior.ColorIndex = xlColorIndexNone Then
            Columns(kol).Hidden = True
        End If
    Next kol
End Sub
Private Sub visAlleKolonner()
Dim kol
    For kol = 2 To antalSelskaber + 1
        Columns(kol).Hidden = False
        Columns(kol).Interior.ColorIndex = xlColorIndexNone
    Next kol
End Sub