Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Filtern von Daten und Übernahme in UserForm-ComboBox

Gruppe

ComboBox

Problem

Eine Tabelle soll über UserForm gefiltert und die gefilterten Daten aus Spalte E sollen in eine ComboBox übernommen werden.

Lösung
Geben Sie den Ereigniscode in das Klassenmodul der UserForm ein.

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