Thema: Datumsreihen nach Vorgabe markieren

StandardModule: basMain

Sub DatumSuchen()
   Dim iRow As Integer, iStart As Integer
   Dim iEnd As Integer, iMonth As Integer
   iRow = 2
   For iMonth = Range("B2").Value To Range("C2").Value
      Do Until Month(Cells(iRow, 1)) = iMonth
         iRow = iRow + 1
      Loop
      iStart = iRow
      Do While Month(Cells(iRow, 1)) = iMonth
         iRow = iRow + 1
         If IsEmpty(Cells(iRow, 1)) Then Exit Do
      Loop
      iEnd = iRow - 1
      Range(Cells(iStart, 1), Cells(iEnd, 1)).Name = _
         Format(DateSerial(0, iMonth, 1), "mmmm")
      Range(Format(DateSerial(0, iMonth, 1), "mmmm")). _
         Interior.ColorIndex = iMonth + 2
   Next iMonth
End Sub

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