AW: ListBox richtig anzeigen
17.08.2017 12:47:50
mmat
Hallo Tina,
da die Suche sowieso nur dann anspringt, wenn der Nachname ausgefüllt ist, gehe ich davon aus, dass es genügt, wenn die folgenden Suchen (Vorname, Ort etc.) nur den Nachnamen zusätzlich berücksichtigen.
Dazu muss jeder Aufruf von strings_like um ein TextBox1.Value ergänzt werden:
Call strings_Like(TextBox?.Value, ?, arrLike, TextBox1.Value)
strings_like sieht jetzt so aus:
Sub strings_Like(ByVal compare As String, ByVal Col As Integer, ByRef arrLike() As String, _
nachname As String)
Dim cRow As Long, rng As Range, c, temp As String, i As Long
If compare = "" Then Exit Sub
compare = "*" & compare & "*": nachname = "*" & nachname & "*"
Set ws = ThisWorkbook.Sheets(5)
With ws
cRow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rng = .Range(.Cells(10, Col), .Cells(cRow, Col))
For Each c In rng
If c.Value Like compare And nachname Like ws.Cells(c.Row, 2) Then
ReDim Preserve arrLike(i)
arrLike(i) = create_String(c.Row)
i = i + 1
End If
Next c
End With
End Sub
Ich hoffe, das funktioniert.