ich nutze folgenden Code um eine Listbox (bisher nur eine Spalte) zu füllen, anhand eines Suchtextes.
Jetzt würde ich gern die Listbox so haben wollen, dass mir 3 Spalten angezeigt werden, wobei die Suche immernoch in der Spalte 1 stattfindet. Es soll eben nur , wenn in Spalte ein was passendes gefunden wird - auch die Spalte 2 und 3 passend dazu angezeigt werden. (Ohne Dopplungen in Spalte 1)
' Funktion zur Text-Suche
Function fncListe(Optional sText As String)
Dim oDaten As Object
i = 0
k = 0
n = 0
k = Worksheets("Liste").Cells(Rows.Count, 1).End(xlUp).Row
Set oDaten = CreateObject("Scripting.dictionary")
If k = 1 Then
ReDim Preserve arrListe(0)
fncListe = arrListe
Exit Function
Else
arrTmp = Worksheets("Liste").Range("G5:I" & k)
ReDim arrListe(1 To UBound(arrTmp))
For i = 1 To UBound(arrTmp)
If LCase(arrTmp(i, 1)) Like "*" & LCase(sText) & "*" Then
oDaten(arrTmp(i, 1)) = 0
' ... hier müsste nun doch noch die Spalte 2 und 3 rein - aber wie ?
End If
Next
On Error Resume Next
fncListe = oDaten.keys
End If
End Function
Komme irgendwie nicht weiter, egal was ich schreibe... Vielen Dank !
Gruß
Kay