Wie häufig kommt ein Wochentag im Monat vor

100011


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=Sa

 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
 


Bitte in ein Modul, nicht in ein Tabellenblatt einfügen.