Combobox mit Filter verknüpfen?

Question

Hallo,
weiß jemand wie man den Inhalt einer Combobox mit dem Filter kombiniert bekommt?
Ich bin in moment so weit..das ich eine Combobox habe die ich mit dem inhalt aus spalte D gefüllt habe und nun diese einträge nach min. 1 oder mehrere kriterien Filtern möchte. z.b. nach 4 verschieden nummern und wenn ich diese Nummern auswähle sollen diese auch gleichzeitig auf meinem Tabellenblaat in meiner Tabelle nach Gefiltert werden. Ist dies möglich? Kann mir da jemand bitte helfen....

Die Spalte D habe ich in den Eigenschaften in der Combobox definiert das dort ein Rowsource von D7:D200 ist.

Userform2:

Option Explicit

Private Sub CommandButton1_Click()

ssuche1 = ComboBox1.Value
CommandButton1.BackColor = vbRed
End Sub

Private Sub CommandButton2_Click()
ssuche2 = ComboBox1.Value
CommandButton2.BackColor = vbRed
End Sub

Private Sub CommandButton3_Click()
ssuche3 = ComboBox1.Value
CommandButton3.BackColor = vbRed
End Sub

Private Sub CommandButton4_Click()
ssuche4 = ComboBox1.Value
CommandButton4.BackColor = vbRed
End Sub

Private Sub CommandButton5_Click()
Debug.Print ssuche1, ssuche2, ssuche3, ssuche4
Unload UserForm2
End Sub

Code Modul :

Option Explicit

Public ssuche1 As String
Public ssuche2 As String
Public ssuche3 As String
Public ssuche4 As String

Sub Start()

UserForm2.Show
Debug.Print "****************************************************"
Debug.Print ssuche1, ssuche2, ssuche3, ssuche4
End Sub

gruß Marco[

Answer 1

Kennt sich keiner aus? :(

Brauche dringend hilfe..

Answer 2

Hallo Marco,
eine Musterdatei wäre hier sehr hilfreich.
Du kannst sie hier hochladen, und den Link ins Forum stellen.

Gruß
fedjo

Answer 3

Hey Fedjo,
ich hab das ganze bereits auf einer anderen art gelöst, bzw. fast gelöst ^^. Indem ich ein UserForm erzeugt habe das zwei Listboxen und vier button enthält. Die Listbox1 hat den Inhalt der Spalte D und mit einem button kann man markierungen aus listbox1 in listbox2 übertragen sowie rückwärts über ein zweiten Button. Dann ist da noch der Abbrech button um das Userform zu schließen. Und zu guter letzt der Filter_Button, denn ich bisher noch nicht hinbekommen habe...die funktion des Filter-Bunttens soll sein, dass er beim darauf klicken meine Tabelle nach dem inhalt in listbox2 filtert. ist dies möglich? Den bisher komm ich einfach zu keiner lösung...

Bisheriger Code:

Option Explicit
Private Sub UserForm_Initialize()

Dim nc As New Collection
Dim I As Integer

On Error Resume Next
For I = 7 To 1000
nc.Add Cells(I, 4).Value, CStr(Cells(I, 4).Value)
Next I

For I = 1 To nc.Count
TTNR_Filter.ListBox1.AddItem nc.Item(I)
Next I

End Sub

Private Sub CmbAbbrechen_Click()
Me.Hide
End Sub

Private Sub cmbFiltern_Click()


End Sub
Private Sub cmbMoveRight_Click()
Dim I As Integer

If ListBox1.ListIndex = -1 Then Exit Sub

For I = ListBox1.ListCount - 1 To 0 Step -1

If ListBox1.Selected(I) = True Then

ListBox2.AddItem ListBox1.List(I)

End If

Next I

End Sub



Private Sub cmbMoveLeft_Click()
Dim I As Integer

If ListBox2.ListIndex = -1 Then Exit Sub

For I = ListBox2.ListCount - 1 To 0 Step -1

If ListBox2.Selected(I) = True Then

ListBox2.RemoveItem I

End If

Next I



End Sub

Beste Grüße
Marco

Answer 4

Hallo Marco,
och hatte doch den Link zum hochladen vergessen.

Gruß
fedjo