Gruppe
Dialog
Problem
Eine Tabelle soll über UserForm gefiltert und die gefilterten Daten aus Spalte E sollen in eine ComboBox übernommen werden.
StandardModule: Modul1
Sub DialogAufruf()
frmFilter.Show
End Sub
ClassModule: frmFilter
Private Sub cmdCancel_Click()
Unload Me
ActiveSheet.AutoFilterMode = False
End Sub
Private Sub cmdOK_Click()
Dim iRow As Integer
With Range("A1")
.AutoFilter Field:=1, Criteria1:="=*2*"
.AutoFilter Field:=2, Criteria1:="=*1*"
End With
iRow = 2
Do Until IsEmpty(Cells(iRow, 5))
If Rows(iRow).Hidden = False Then
cboFilter.AddItem Cells(iRow, 5).Value
End If
iRow = iRow + 1
Loop
If cboFilter.ListCount > 0 Then
cboFilter.ListIndex = 0
End If
End Sub