Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Datum aus TextBox an erste frei Stelle eintragen

Gruppe

TextBox

Problem

Ein Datum aus einer UserForm-TextBox soll bei aktivierter CheckBox an die erste freie Stelle einer Datumsreihe eingefügt werden.

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

ClassModule: frmInsertDate

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdEintragen_Click()
   Dim rng As Range
   If chbInsert.Value = False Then Exit Sub
   If Not IsDate(CDate(txtDate.Text)) Then
      MsgBox "Kein gültiges Datum!"
      txtDate.SetFocus
      Exit Sub
   End If
   For Each rng In Worksheets("Data").Range("A5:A5,D6:D12").Cells
      If IsEmpty(rng) Then
         rng = CDate(txtDate.Text)
         End
      End If
   Next rng
End Sub

StandardModule: Modul1

Sub CallForm()
   frmInsertDate.Show
End Sub