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.
Die Prameter lauten wie folgt: 1=So, 2=Mo, 3=Di, 4=Mi, 5=Do, 6=Fr, 7=SaFunction 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
Damit der Code funktioniert, muss dieser in ein Code-Modul eingefügt werden.