Thema: Nur gefilterte Daten übernehmen

Home

Die Tabelle wird gefiltert und die gefilterten Daten aus Spalte E werden in die ComboBox übernommen.

Prozedur: cmdOK_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nur gefilterte Daten übernehmen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen um das Zelle-A1-Objekt bilden
- Autofilterkriterum für Spalte A festlegen
- Autofilterkriterum für Spalte B festlegen
- Zeilenzähler initialisieren
- Schleife bis zur ersten leeren Zelle in Spalte E
- Wenn die aktuelle Zeile nicht ausgeblendet ist...
- Wert aus Spalte E der ComboBox hinzufügen
- Zeilenzähler um eins erhöhen
- Wenn die ComboBox zumindest einen Eintrag hat...
- 1. Element der ComboBox auswählen

Code:


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