Hallo zusammen,
meine TextBox funktioniert nur bei der ersten Suche.
Wie kann ich erreichen, dass die TextBox aktiv bleibt bzw. neu startet, sobald ein neuer Suchbegriff eingegeben wird?
Das Kopieren von LB1 nach LB2 klappt, jedoch nicht der umgekehrte Weg.
Vielleicht seht ihr den Fehler auf Anhieb. Ich tue es nicht.
Danke & Gruß Basti
meine TextBox funktioniert nur bei der ersten Suche.
Wie kann ich erreichen, dass die TextBox aktiv bleibt bzw. neu startet, sobald ein neuer Suchbegriff eingegeben wird?
Das Kopieren von LB1 nach LB2 klappt, jedoch nicht der umgekehrte Weg.
Vielleicht seht ihr den Fehler auf Anhieb. Ich tue es nicht.
Danke & Gruß Basti
VB.NET-Quellcode
- Option Explicit
- Private Sub TextBox1_Change()
- Dim i As Long
- Dim wks As Worksheet
- Set wks = Worksheets("Tabelle2")
- With Tabelle1
- .ListBox1 = ""
- If TextBox1 = "" Then Exit Sub
- For i = 2 To wks.Cells(Rows.Count, 3).End(xlUp).Row
- If UCase(Left(wks.Cells(i, 3), Len(TextBox1))) = UCase(TextBox1) Then
- .ListBox1.AddItem wks.Cells(i, 3)
- .ListBox1.List(.ListBox1.ListCount - 1, 1) = wks.Cells(i, 4)
- .ListBox1.List(.ListBox1.ListCount - 1, 2) = wks.Cells(i, 5)
- .ListBox1.List(.ListBox1.ListCount - 1, 3) = wks.Cells(i, 6)
- .ListBox1.List(.ListBox1.ListCount - 1, 4) = wks.Cells(i, 7)
- .ListBox1.List(.ListBox1.ListCount - 1, 5) = wks.Cells(i, 8)
- End If
- Next
- End With
- End Sub
- Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- If ListBox1.ListIndex >= 0 Then
- With ListBox2
- .AddItem ListBox1.List(ListBox1.ListIndex, 0)
- .List(.ListCount - 1, 1) = ListBox1.List(ListBox1.ListIndex, 1)
- .List(.ListCount - 1, 2) = ListBox1.List(ListBox1.ListIndex, 2)
- .List(.ListCount - 1, 3) = ListBox1.List(ListBox1.ListIndex, 3)
- .List(.ListCount - 1, 4) = ListBox1.List(ListBox1.ListIndex, 4)
- .List(.ListCount - 1, 5) = ListBox1.List(ListBox1.ListIndex, 5)
- End With
- ListBox1.RemoveItem (ListBox1.ListIndex)
- TextBox1 = ""
- TextBox1.Activate
- End If
- End Sub
- Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
- If ListBox2.ListIndex >= 0 Then
- With ListBox1
- .AddItem ListBox1.List(ListBox1.ListIndex, 0)
- .List(.ListCount - 1, 1) = ListBox1.List(ListBox1.ListIndex, 1)
- .List(.ListCount - 1, 2) = ListBox1.List(ListBox1.ListIndex, 2)
- .List(.ListCount - 1, 3) = ListBox1.List(ListBox1.ListIndex, 3)
- .List(.ListCount - 1, 4) = ListBox1.List(ListBox1.ListIndex, 4)
- .List(.ListCount - 1, 5) = ListBox1.List(ListBox1.ListIndex, 5)
- End With
- ListBox2.RemoveItem (ListBox2.ListIndex)
- TextBox1 = ""
- TextBox1.Activate
- End If
- End Sub
Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Basti-KO“ ()