Gruppe
Dialog
Bereich
ComboBox
Thema
Nach ausgewählten Daten filtern
Problem
Wie kann ich über ComboBoxes Begriffe auswählen, nach denen eine Tabelle gefiltert werden soll? Die gefilterten Datensätze sollen in ein neues Tabellenblatt übernommen werden.
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmFilter
Private Sub cmdFilter_Click()
Dim iCounter As Integer
For iCounter = 1 To 5
If Controls("ComboBox" & iCounter).ListIndex <> -1 Then
Range("A1").AutoFilter _
Field:=iCounter, _
Criteria1:=Controls("ComboBox" & iCounter).Value
End If
Next iCounter
Range("A1").CurrentRegion.Copy
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Paste
Worksheets("Tabelle1").AutoFilterMode = False
Unload Me
End Sub
StandardModule: basMain
Sub CallForm()
frmFilter.Show
Application.CutCopyMode = False
ActiveSheet.Range("A1").Select
End Sub