VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzahl eines bestimmten Wochentages im Monat

Gruppe

DatumZeit

Bereich

Wochentag

Thema

Anzahl eines bestimmten Wochentages im Monat

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