Thema: Datenreihe generieren

Home

Abbildung - Datenreihe generieren

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Datenreihe generieren
Ablaufbeschreibung:
- Variablendeklaration
- Datum aus zu Datum konvertiertem Text an die Datums-Startvariable übergeben
- Datum aus zu Datum konvertiertem Text an die Datums-Endevariable übergeben
- Schleife von 1 bis Datumsende minus Datumsstart bilden
- Zelleintrag mit dem aktuellen Tag
- UserForm schließen

Code:


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