Option Explicit
Public Function AnzahlTage(DatVon As Date, DatBis As Date) As String
Dim dDatum    As Date
Dim iMonat    As Integer
Dim aTage()   As Variant
Dim iIndex    As Integer
   dDatum = DatVon
   iMonat = Month(dDatum)
   iIndex = 1
   ReDim aTage(iIndex)
   aTage(iIndex) = 1
   Do
      dDatum = dDatum + 1
      If Month(dDatum) <> iMonat Then
         iIndex = iIndex + 1
         ReDim Preserve aTage(iIndex)
         aTage(iIndex) = 1
         iMonat = Month(dDatum)
       Else
         aTage(iIndex) = aTage(iIndex) + 1
      End If
   Loop Until dDatum = DatBis
   iMonat = Month(DatVon)
   For iIndex = 1 To UBound(aTage)
      If AnzahlTage = "" Then
         AnzahlTage = "Monat " & iMonat & " " & aTage(iIndex)
       Else
         iMonat = iMonat + 1
         AnzahlTage = AnzahlTage & ", " & "Monat " & iMonat & " " & aTage(iIndex)
      End If
   Next iIndex
End Function 

Code eingefügt mit Syntaxhighlighter 4.4