0160-93 82 19 37 | Nehmen Sie 
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.
