VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Start- und Enddatum aus UserForm-TextBoxes als Filterkriterien

Gruppe

Dialog

Bereich

UserForm

Thema

Start- und Enddatum aus UserForm-TextBoxes als Filterkriterien

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

    


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