Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Start- und Enddatum aus UserForm-TextBoxes als Filterkriterien

Gruppe

UserForm

Problem

Die in UserForm-TextBoxes festgelegten Datum-Filterkriterien sollen beim Filtern zugrundegelegt werden.

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

ClassModule: frmFilter

Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   Range("A1").CurrentRegion.AutoFilter _
      field:=3, _
      Criteria1:=">=" & CDbl(CDate(txtStart.Text)), _
      Operator:=xlAnd, _
      Criteria2:="<=" & CDbl(CDate(txtEnd.Text))
End Sub
StandardModule: Modul1

Sub Filtern()
   frmFilter.Show
End Sub