Enum enWochenTag
    Montag
    Dienstag
    Mittwoch
    Donnerstag
    Freitag
    Samstag
    Sonntag
End Enum

Dim wt As enWochenTag

For Each wt In enWochenTage
    ...
Next wt

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...