Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Markierung einer Datumsreihe gem. UserForm-TextBoxes

Gruppe

TextBox

Problem

Eine sich aus UserForm-TextBoxes ergebende Datumsreihe soll markiert werden.

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

ClassModule: frmDateInsert

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Dim rngStart As Range, rngEnd As Range
   Set rngStart = Columns(1).Find( _
      what:=DateValue(txtStart.Text), LookIn:=xlFormulas)
   Set rngEnd = Columns(1).Find( _
      what:=DateValue(txtEnd.Text), LookIn:=xlFormulas)
   Columns("B").Clear
   Range(rngStart, rngEnd).Offset(0, 1).Value = "X"
End Sub

StandardModule: basMain

Sub CallForm()
   frmDateInsert.Show
End Sub