vba code if then number-format

[Erinaceus]

Ik heb zelf een sjabloon voor de boekhouding gemaakt met verschillende categorieeen. In het verleden had ik deze in 1 kolom onder elkaar staan en kon ik dit gewoon via het 'standaardfilter' filteren. Nu heb ik een nieuw sjabloon waarbij de maanden naast en onder elkaar staan, is nl. overzichtelijker.
ik wil via de 'if-then' formule in vba een macro aan een knop hangen dat als ik op de grote gele knop druk. excel automatisch alle andere categorieën de kolom bedrag en de kolom toelichting' de getalnotatie (onder getal) op ';;;' zet. Dan 'hide' excel deze cellen nl. en kan ik er sneller door zoeken.
Ik probeer een vba-code te maken voor zo'n filter maar krijg de code niet voor elkaar. Zie ook de onderstaande afbeeldingen, getallen e.d. zijn fictief

 

[edmoor]

Plaats een voorbeeld document in plaats van een plaatje.

 

[Erinaceus]

test-document

 

[edmoor]

Wil je dat voor het hele jaar of voor een geselecteerde maand?

Zoiets voor Januari?

Sub ETEN_DRINKEN()
    For Each cl In Range("D14:D45")
        If cl.Value = "ETEN & DRINKEN" Then
            cl.Offset(, -1) = ""
        Else
            cl.Offset(, -1) = ""
            cl.Offset(, -2).NumberFormat = ";;;"
        End If
    Next cl
End Sub

Dat is overigens geen filter.
Als je daarna het document opslaat zijn de wijzigingen definitief.