Filterfunktion mit Comboboxen
abu
hab mal wieder ein kleines Problem und hoffe Ihr koennt mir helfen:
Ich habe eine Userform mit Comboboxen und einer Listbox. Die Comboboxen dienen als Filter:
Private Sub ComboboxAuswahl()
Dim iArray As Long, bListe As Boolean
Dim vCB1, vCB2, vCB3, vCB4
If UBound(arrData) = 0 Then Exit Sub 'keine Daten im Array
vCB1 = Me.ComboBox1.Value
vCB2 = Me.ComboBox2.Value
vCB3 = Me.ComboBox3.Value
vCB4 = Me.ComboBox4.Value
For iArray = LBound(arrData, 1) To UBound(arrData, 1)
bListe = True
If Not (vCB1 = "" Or arrData(iArray, 5) = vCB1) Then bListe = False: GoTo Weiter01
If Not (vCB2 = "" Or arrData(iArray, 11) = vCB2) Then bListe = False: GoTo Weiter01
If Not (vCB3 = "" Or arrData(iArray, 8) = vCB3) Then bListe = False: GoTo Weiter01
If Not (vCB4 = "" Or arrData(iArray, 12) = vCB4) Then bListe = False: GoTo Weiter01
Weiter01:
arrData(iArray, 10) = bListe
Next
Call Listboxfuellen
End Sub
Combobox 4 soll auf Wochennummer filtern. Macht er aber nicht. Wenn ich mir das anschaue, dann ist vCB4 ein String die Wochennummer aber natuerlich eine Integer.
Geh ich in die Tabelle und fomatiere die Spalte als Text aendert sich auch nichts.
Geh ich in die Zelle und gebe z.B. '46 ein, filtert er. Ist aber keine Option da neue Datensaetze immer manuell geandert werden muessten.
vCB4 als Integer zu deklarieren findet Excel auch nicht toll.
Hat jemand vllt. einen Ansatz wie ich das Problem loese?
Beste Gruesse
abu
Anzeige