Excel und VBA: Formeln, Programmierung, Lösungen

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

    

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