Thema

Datumsbereich gem. Start- und Enddatum markieren

Gruppe

Bedingt

Problem

Die Zellen, deren Datumswerte im Bereich der Anfang- und Endewerte einer zweiten Tabelle liegen, sollen markiert werden.

Lösung
Nur anhand einer Beipspielarbeitsmappe darstellbar.



ClassModule: frmDate

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim datStart As Date, datEnde As Date
   Dim iRow As Integer
   datStart = DateValue(txtStart.Text)
   datEnde = DateValue(txtEnde.Text)
   For iRow = 1 To datEnde - datStart + 1
      Cells(iRow, 1) = datStart + iRow - 1
   Next iRow
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmDate.Show
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Feature und Bedingt