VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Datumreihe aus TextBox-Einträgen generieren

Gruppe

Dialog

Bereich

TextBox

Thema

Datumreihe aus TextBox-Einträgen generieren

Problem

Wie kann ich aus TextBox-Einträgen (Start- und Enddatum) in einer UserForm in einer Tabelle eine Zahlenreihe generieren?

Lösung

Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.




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 Dialog und TextBox