VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Autofilter-Kriterien über UserForm vorgeben

Gruppe

Dialog

Bereich

TextBox

Thema

Autofilter-Kriterien über UserForm vorgeben

Problem

Wie kann ich Autofilter-Kriterien über UserForm-TextBox-Einträge vorgeben?

Lösung

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




ClassModule: frmFilter

Private Sub cmdFilter_Click()
   If ActiveSheet.FilterMode = False Then
      ActiveSheet.FilterMode = True
   End If
   Range("A1").AutoFilter _
      field:=1, _
      Criteria1:="=" & txtFilter.Text, _
      Operator:=xlOr
End Sub

Private Sub cmdWeiter_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmFilter.Show
End Sub

    


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