• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

VBA, Kolommen verbergen/weergeven aan de hand van 2 waarden

Status
Niet open voor verdere reacties.
P

Pyrogic

Nieuwe gebruiker
Lid geworden
7 nov 2019
Berichten
1
Goedemiddag,

Ik zit al enkele uren op deze site te kijken naar een werkende vba-code voor mijn probleem, echter heb ik deze nog niet gevonden, vandaar dat ik het probeer via deze post!
Helaas ben ik op het moment nog een leek als het aankomt op het bouwen van een werkende VBA-code haha.

Ik ben tot de volgende code gekomen. Als ik deze test voor de eerste waarde werkt hij perfect. Het verwerken van de tweede waarde lukt ook.
Het implementeren van beide waarden lukt helaas niet. Hiermee bedoel ik te zeggen, als ik bijvoorbeeld alleen maar 2 maanden wil zien (2019-9 en 2019-10), krijg ik ook periodes 2019-11 en 2019-12 te zien.
Waarschijnlijk is het heel makkelijk op te lossen en is mijn code veels te uitgebreid, maar we zijn hier gelukkig om te leren van de knappe koppen! Zie hieronder de VBA-code die ik gebruik.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 5 Then
        If Target.Value = "2019-1" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
        ElseIf Target.Value = "2019-2" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:F").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-3" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:G").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-4" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:H").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-5" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:I").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-6" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:J").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-7" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:K").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-8" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:L").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-9" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:M").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-10" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:N").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-11" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:O").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-12" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("F:P").Select
            Application.Selection.EntireColumn.Hidden = True
        End If
    End If
If Target.Column = 4 And Target.Row = 6 Then
        If Target.Value = "2019-1" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("G:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-2" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("H:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-3" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("I:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-4" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("J:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-5" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("K:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-6" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("L:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-7" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("M:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-8" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("N:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-9" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("O:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-10" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("P:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-11" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
            Application.Columns("Q:Q").Select
            Application.Selection.EntireColumn.Hidden = True
        ElseIf Target.Value = "2019-12" Then
            Application.Columns("F:Q").Select
            Application.Selection.EntireColumn.Hidden = False
        End If
    End If
End Sub

Kunnen jullie mij uit de brand helpen?

Alvast bedankt!


Kevin
 

Bijlagen

  • WV analyse.xlsm
    16,1 KB · Weergaven: 29
Vooruitgang

Goedemiddag,

Helaas heeft niemand mij tot dusver kunnen helpen, dus ik ben maar wat extra na gaan denken en zoeken.
Ik heb tot dusver de code werkend gekregen, helaas is deze wegens het gebrek aan kennis over VBA heel langdradig. Ik zou graag willen dat bij het intypen van een nieuwe periode de cel niet constant verspringt naar de kolommen die zijn verborgen.
Is er een mogelijke oplossing om hieromheen te werken? Wellicht met een nieuwe code?

Hoor het graag.
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim beginmaand As Variant
Dim eindmaand As Variant
beginmaand = Range("D5")
eindmaand = Range("D6")

    If beginmaand = 1 And eindmaand = 1 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("G:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 2 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("H:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 3 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("I:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 4 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("J:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 5 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("K:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 1 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
    ElseIf beginmaand = 2 And eindmaand = 2 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("H:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 3 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("I:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 4 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("J:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 5 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("K:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 2 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:F").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 3 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("I:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 4 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("J:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 5 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("K:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 3 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:G").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 4 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("J:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 5 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("K:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 4 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:H").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 5 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("K:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 5 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:I").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 6 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("L:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 6 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:J").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 7 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("M:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 7 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:K").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 8 And eindmaand = 8 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:L").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("N:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 8 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:L").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 8 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:L").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 8 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:L").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 8 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:L").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 9 And eindmaand = 9 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:M").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("O:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 9 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:M").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 9 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:M").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 9 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:M").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 10 And eindmaand = 10 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:N").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("P:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 10 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:N").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 10 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:N").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 11 And eindmaand = 11 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:P").Select
        Application.Selection.EntireColumn.Hidden = True
        Application.Columns("Q:Q").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 11 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:P").Select
        Application.Selection.EntireColumn.Hidden = True
    ElseIf beginmaand = 12 And eindmaand = 12 Then
        Application.Columns("F:Q").Select
        Application.Selection.EntireColumn.Hidden = False
        Application.Columns("F:P").Select
        Application.Selection.EntireColumn.Hidden = True
    End If
End Sub

Gr. Kevin
 
Inclusief het Excelbestand
 

Bijlagen

  • WV analyse.xlsm
    21,6 KB · Weergaven: 24
Pyrogic2,

probeer eens of dit werkt
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Range("F:Q").EntireColumn.Hidden = False
beginmaand = Range("D5")
eindmaand = Range("D6")
For k = 6 To 17
waarde = Cells(9, k).Value
If Cells(9, k) >= beginmaand Then
    If Cells(9, k) <= eindmaand Then
        Cells(9, k).EntireColumn.Hidden = False
    Else
        Cells(9, k).EntireColumn.Hidden = True
    End If
End If
If Cells(9, k) < beginmaand Then Cells(9, k).EntireColumn.Hidden = True
Next k
End Sub
 
Hey Haije,

Hij werkt perfect, hartstikke bedankt!
Nu ben ik alleen de inloggegevens vergeten van mijn originele account.

Kan een Moderator deze vraag markeren als zijnde opgelost?
Alvast bedankt.
 
Dat kun je zelf doen in de openingspost
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan