Ga naar inhoud

Welkom op PC Helpforum!
PC Helpforum helpt GRATIS computergebruikers. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen.

Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!


JTvD

Verberg rijen op een beaalde weekdag

Aanbevolen berichten


In je bladmodule.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then
 If WorksheetFunction.Weekday(Target) = 3 Then
 Range("A2:A11").EntireRow.Hidden = False
 Else
 Range("A2:A11").EntireRow.Hidden = True
 End If
End If
End Sub

 

Deel dit bericht


Link naar bericht
Delen op andere sites
  • Topicstarter
  •    0

    Dit is het.

     

    Klasse, dankje Philiep, hier kan ik verder mee..

    Van mij mag het slotje er op

     

     

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Korte versie. :)

     

    Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("C1")) Is Nothing Then
            Range("A2:A11").EntireRow.Hidden = Not (Application.Weekday(Target) = 3)
        End If
    End Sub

     

    Deel dit bericht


    Link naar bericht
    Delen op andere sites

    Gast
    Dit topic is nu gesloten voor nieuwe reacties.

    Logo

    OVER ONS

    PC Helpforum helpt GRATIS computergebruikers sinds juli 2006. Ons team geeft via het forum professioneel antwoord op uw vragen en probeert uw pc problemen zo snel mogelijk op te lossen. Word lid vandaag, plaats je vraag online en het PC Helpforum-team helpt u graag verder!

    ×
    ×
    • Nieuwe aanmaken...