Knap filtrere efter bestemt ugedag

Du mangler en funktion til at finde datoen for den førstkommende mandag (eller andet).
Den funktion har du her:

Public Function FindFørstkommendeUgedag(Ugedag As Byte) As Date
    Dim Dato  As Date
    Dato = Date + 1
    Do Until Weekday(Dato) = Ugedag
        Dato = Dato + 1
    Loop
    FindFørstkommendeUgedag = Dato
End Function

(lægges i et modul)

NB: Vær dog opmærksom på, at ugedag skal leveres som et tal mellem 1 og 7, hvor 1 er søndag og 7 er lørdag!!

Herefter kan du filtrere på næste mandag således:

Me.Filter = "dato = FindFørstkommendeUgedag(2)"
Me.Filteron = true

Denne kan selvfølgelig kombineres med en gruppeboks med alle ugedagene eller en komboboks eller andet...

Super det virker som det skal :D

Perfekt :o)