Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach ausgewählten Daten filtern

Gruppe

ComboBox

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