Wie häufig kommt ein Wochentag im Monat vor

Mit dieser benutzerdefinierten Funktion wird die Häufigkeit eines Wochentages ermittelt. Der Aufruf erfolgt mit =wtage(A1;1) In Zelle A1 steht das Datum im Format 01.01.2002 Mit den Parametern 1 bis 7 wird der abzufragende Wochentag bestimmt. 

 Function wtage(Datum, Tag%)
 Dim f
 Dim i%, n%
 f = DateSerial(Year(Datum), Month(Datum), 1)
 n = DateSerial(Year(f), Month(f) + 1, 1) - f
 For i = 1 To n
 If Weekday(f - 1 + i) = Tag Then
 wtage = wtage + 1
 End If
 Next i
 End Function