Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Monatstage eines vorgegebenen Zeitraum listen und addieren

Gruppe

Datum

Problem

Wie kann ich in einer Tabelle die Monatstage, ausgehend von einem Start- bis zu einem Enddatum, mit der jeweiligen Monatsbezeichnung auflisten und addieren lassen?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Sub Tage()
   Dim lCounter As Long
   Dim iRow As Integer, iDays As Integer
   Columns("D:E").ClearContents
   lCounter = Range("B1")
   Do
      iDays = iDays + 1
      If Month(lCounter) <> Month(lCounter + 1) Then
         iRow = iRow + 1
         Cells(iRow, 4) = Format(lCounter, "mmmm")
         Cells(iRow, 5) = iDays
         iDays = 0
      End If
      lCounter = lCounter + 1
   Loop Until lCounter > Range("B2").Value
   iRow = iRow + 1
   Cells(iRow, 4) = Format(Range("B2"), "mmmm")
   Cells(iRow, 5) = Day(Range("B2"))
   Cells(iRow + 1, 5) = Application.Sum(Range("E1:E" & iRow))
End Sub

    

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