HERBERS Excel-Forum - die Dialoge

Thema: Filterkritierien über ComboBoxes

Home
Filterkriterien werden über UserForm-ComboBoxes festgelegt. Die gefilterten Daten werden auf ein neues Arbeitsblatt zu übertragen. Filterkritierien über ComboBoxes
  • Prozedur: cmdFilter_Click
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Filterkritierien über ComboBoxes
  • Ablaufbeschreibung:
    • Variablendeklaration
    • Schleife beginnen
    • Wenn eine ComboBox-Auswahl erfolgte...
    • Filterkriterium gem. aktueller ComboBox setzen
    • Genutzten Bereich, ausgehend von A1, kopieren
    • Neues Arbeitsblatt an letzter Position hinzufügen
    • Kopierte Daten einfügen
    • AutoFilter-Modus ausschalten
    • UserForm schließen
  • Code:

    
    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