Thema: Start- und Enddatum aus UserForm-TextBoxes als Filterkriterien

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

Beiträge aus dem Excel-Forum zu den Themen Dialog und UserForm