Gruppe
Feature
Problem
In Zeile 1 befinden sich Kopfzeilen, unterhalb davon Datumsreihen. In den Zellen H1:H3 befinden sich als Kriterien Kopfzeilenwert, Start- und Enddatum. Bei Änderungen der Eintragungen soll sich die Markierung des Datumsbereiches den geänderten Daten anpassen.
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