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