Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datumsreihen nach Vorgabe markieren

Gruppe

Format

Problem

Wie kann ich eine Datumsreihe nach Vorgabe von Tages- und MonatsIndizes markieren und mit Bereichsnamen belegen lassen?

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

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