Formular Treffersuche
02.06.2017 16:33:34
Lutz
nach fast 2 Stunden gebe ich es leider auf:(
Ich habe mir ein Formular aus dem Internet gesucht mit dem man bei der Eingabe eines Buchstabens in eine TextBox (11) eine Liste mit Strassennamen nach und nach einschränkt.
Das habe ich jetzt in meine Arbeitsmappe kopiert und ich bekomme zwar die Initiale Listbox aber sobal ich einen Buchstaben in die TextBox eingebe findet er nichts.
Das Formular wird von einer Tabelle Namens Eingabe aus aufgerufen.
So sieht mein Code jetzt aus:
Private Sub TextBox11_Change()
TextBox12 = TextBox11
Dim arr() As Variant
Dim index As Long
Dim X As String
Dim iCount As String
X = Sheets("Strasse").Range("A65536").End(xlUp).Row
If TextBox11.Value = "" Then
ListBox2.RowSource = "Strasse!A2:A" & X
Exit Sub
End If
ListBox2.RowSource = ""
ListBox2.Clear
For index = 2 To X
If LCase(Left(Sheets("Strasse").Cells(index, 1), Len(TextBox11))) = LCase(TextBox11) _
Then
If Sheets("Strasse").Cells(index, 1) "" Then
On Error Resume Next
ReDim Preserve arr(0, 0 To iCount)
arr(0, iCount) = Sheets("Strasse").Cells(index, 1)
iCount = iCount + 1
ListBox2.Column = arr
End If
End If
Next
End Sub
Private Sub TextBox1_Change()
TextBox2 = TextBox1
Dim arr() As Variant
Dim index As Integer
x = Range("C65536").End(xlUp).Row
If TextBox1.Value = "" Then
ListBox1.RowSource = "C5:C" & x
Exit Sub
End If
ListBox1.RowSource = ""
ListBox1.Clear
For index = 5 To x
If LCase(Left(Cells(index, 3), Len(TextBox1))) = LCase(TextBox1) Then
If Sheets("Tabelle1").Cells(index, 3) "" Then
On Error Resume Next
ReDim Preserve arr(0, 0 To iCount)
arr(0, iCount) = Cells(index, 3)
iCount = iCount + 1
ListBox1.Column = arr
End If
End If
Next
End Sub
Diesen Teil tut er:
X = Sheets("Strasse").Range("A65536").End(xlUp).Row
If TextBox11.Value = "" Then
ListBox2.RowSource = "Strasse!A2:A" & X
Exit Sub
End If
Er lädt das Formular richtig - aber sobald ich einen Buchstaben in die TextBox11 eingebe kommt nichts mehr. (Über den Haltepunkt habe ich auch gecheckt, ob er den eingegebenen Buchstaben nimmt - das tut er.
Weiß jemand von Euch einen Rat?
Vielen Dank im voraus - ich weiß leider nicht mehr weiter.
Viele Grüße Lutz