Gruppe
Dialog
Problem
Wie kann ich aus TextBox-Einträgen (Start- und Enddatum) in einer UserForm in einer Tabelle eine Zahlenreihe generieren?
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