Gruppe
Dialog
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.
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