Office: Userform Suchmaske mit mehreren Suchwerten

Hallo,

ich hoffe, dass mir jemand helfen kann...
Ich habe eine Tabelle mit Kundendaten, die durchsucht werden soll.

Dazu habe ich eine Userform mit mehreren Comboxen.


Jede soll ich bestimmte Spalte durchsuchen. Es gibt also mehrere Werte nach denen gesucht werden soll, z.b. Ort und Branche...

Die kombinierte Suche bekomme ich hin aber was mache ich, wenn nur EINE Combobox ausgewählt wird und die andere leer bleibt. Ich möchte z.B. nur den Ort nehmen...

Ich verzweifle gerade ein bisschen...

Mein bisheriger Code...


Private Sub CmdLos_Click()
Dim x As String
Dim y As String
Dim u As Long
Dim z As Long

z = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
x = cmbOrt
y = cmbBranche
u = cmbUmsatz


For i = 1 To z



If Cells(i, 6) = x Then
If Cells(i, 7) = y Then
If Cells(i, 10) = 0 Then


Unload Me
zeile = i
Cells(i, 1).Interior.ColorIndex = 4
Cells(i, 2).Interior.ColorIndex = 4
Cells(i, 3).Interior.ColorIndex = 4
Cells(i, 4).Interior.ColorIndex = 4
Cells(i, 5).Interior.ColorIndex = 4
Cells(i, 6).Interior.ColorIndex = 4
Cells(i, 7).Interior.ColorIndex = 4
Cells(i, 8).Interior.ColorIndex = 4
Cells(i, 9).Interior.ColorIndex = 4
Cells(i, 10).Interior.ColorIndex = 4
Cells(i, 11).Interior.ColorIndex = 4
Cells(i, 12).Interior.ColorIndex = 4
Cells(i, 13).Interior.ColorIndex = 4
Cells(i, 14).Interior.ColorIndex = 4
Cells(i, 15).Interior.ColorIndex = 4
Cells(i, 16).Interior.ColorIndex = 4
Cells(i, 17).Interior.ColorIndex = 4
Cells(i, 18).Interior.ColorIndex = 4
Cells(i, 19).Interior.ColorIndex = 4


End If
End If
End If

Next i

:)

 

Hi,

hilfreich wäre, wenn du deine Mappe mit ein paar relevanten Daten mal hochladen würdest.

 

Hey,

stimmt *Smilie

Ich habe mal eine Mappe mit geänderten Daten angehängt.

Über den Button "Selektion" gelangt man zu meinem "Problemfall" ;-)

Ich möchte sowohl die Kombisuche, z.b. Hamburg, Dienstleistungen, Umsatz unter 3000

als auch die einfache Suche, z.b. Hamburg .... hinkriegen....



DANKE!

 

Hi,

schreibe in die Tag-Eigenschaft jeder ComboBox die Spaltennummer, in welcher gefiltert werden soll. Der Code für das Filtern würde dann so aussehen:

Code:

 

DAAAANKE!

Funktioniert super!