Zwei Bedingungen in UserForm suchen
Hans
ich habe folgenden Code in einer Userbox.
Aufgabe?
Es wird in der Tabelle Kunden in Spalte C nach dem Kundennamen der per textSearch übergeben wird gesucht und alle Fundstellen in der Userbox angezeigt
Nun möchte dass man zusätzlich nach dem Vornamen suchen kann der in mit textSearch2 übergeben wird.
Der Vorname steht in der Tabelle Kunden in Spalte D
Kann mir da vlt. jemand weiterhelfen?
lg
Hans
Private Sub FillList()
Dim rng As Range
Dim sFirst As String
Dim i As Integer
ListBox2.Clear
ListBox1.AddItem
ListBox1.List(i, 0) = "Name"
ListBox1.List(i, 1) = "| Vorname"
ListBox1.List(i, 2) = "| Straße"
ListBox1.List(i, 3) = "| Ort"
ListBox1.List(i, 4) = "| Telefonnummer"
ListBox1.List(i, 5) = "| Kundenummer"
Set rng = Workbooks("Kunden.xls").Worksheets("Kundenstamm").Range("C:C") _
.Find(What:=txtSearch, LookIn:=xlValues, LookAt:=xlPart, After:=Range("C15000"))
If Not rng Is Nothing Then
sFirst = rng.Address
ListBox2.AddItem
ListBox2.List(i, 0) = rng
ListBox2.List(i, 1) = "| " & rng.Offset(0, 1)
ListBox2.List(i, 2) = "| " & rng.Offset(0, 2)
ListBox2.List(i, 3) = "| " & rng.Offset(0, 3) & " " & rng.Offset(0, 4)
ListBox2.List(i, 4) = "| " & rng.Offset(0, 5)
ListBox2.List(i, 5) = "|"
ListBox2.List(i, 6) = rng.Offset(0, -2)
i = i + 1
Do
Set rng = Workbooks("Kunden.xls").Worksheets("Kundenstamm").Range("C:C").FindNext(After: _
=rng)
If rng.Address = sFirst Then Exit Do
ListBox2.AddItem
ListBox2.List(i, 0) = rng
ListBox2.List(i, 1) = "| " & rng.Offset(0, 1)
ListBox2.List(i, 2) = "| " & rng.Offset(0, 2)
ListBox2.List(i, 3) = "| " & rng.Offset(0, 3) & " " & rng.Offset(0, 4)
ListBox2.List(i, 4) = "| " & rng.Offset(0, 5)
ListBox2.List(i, 5) = "|"
ListBox2.List(i, 6) = rng.Offset(0, -2)
i = i + 1
Loop
End If
If ListBox2.ListCount = 0 Then
Unload Me
MsgBox "Dieser Name wurde nicht gefunden"
Exit Sub
End If
End Sub