Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Anzahl eines bestimmten Wochentages im Monat

Gruppe

Wochentag

Problem

Wie kann ich feststellen, wie oft ein bestimmter Wochentag in einem vorgegebenen Monat vorkommt?

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: basMain

Function nDays(dat, iDay As Integer)
   Dim datFirst As Date, datLast As Date
   Dim iCount As Integer
   Dim lDay As Long
   datFirst = DateSerial(Year(dat), Month(dat), 1)
   datLast = DateSerial(Year(dat), Month(dat) + 1, 0)
   For lDay = datFirst To datLast
      If WeekDay(lDay) = iDay Then
         iCount = iCount + 1
      End If
    Next lDay
    nDays = iCount
End Function

    

Beiträge aus dem Excel-Forum zu den Themen DatumZeit und Wochentag