Hallo,
ich möchte gern den Inhalt einer Listbox durchsuchen, wenn diese mind. 1 Wert enthält.
Wie kann ich es in dem folgenden Code (der bezieht sich auf eine Tabellenbereich) einbauen ?
Probiere hier schon seit Stunden, bekomme aber immer Fehlermeldungen ;o(
.
.
.
k = Worksheets("Daten").Cells(Rows.Count, 3).End(xlUp).Row
arrTmp3 = Worksheets("Daten").Range("C5:C" & k)
For i = 1 To UBound(arrTmp3)
If LCase(arrTmp3(i, 1)) Like "*" & LCase(sText3) & "*" Then
oDaten3(arrTmp3(i, 1)) = 0
End If
Next
On Error Resume Next
fncListe3 = oDaten3.keys
usw.
.
.
.
Gruß und vielen Dank für Eure Hilfe!
Kay