Zu Listbox Eintrag springen (die 1000 :-( )
07.03.2024 13:00:16
StefanS1971
Ich bekomme es einfach nicht auf die Kette , auch nach diversen Versuchen (sei es nun irgendwelche Tutorials oder Threads aus diesem Forum , davon gibt es zu meiner Fragestellung ja genug Antworten)
Ich habe mir mit einem Tutorial (so das ich auch verstehe was ich da tue :-) ) mal eine Suchbox für eine Tabelle erstellt.
Das suchen klappt auch super !
Jetzt würde ich gerne via Doppelklick zu dem ausgewählten Eintrag springen. Und da stecke ich fest.
Hier mal der Code :
Private Sub TextBox1_Change()
Dim Zeile As Long
'Clear'
Me.ListBox1.Clear
For Zeile = 7 To Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row
If InStr(1, LCase(Tabelle2.Cells(Zeile, 3).Value), LCase(Me.TextBox1.Value)) > 0 Or _
InStr(1, LCase(Tabelle2.Cells(Zeile, 2).Value), LCase(Me.TextBox1.Value)) > 0 Then
'Listbox befüllen'
Me.ListBox1.AddItem Tabelle2.Cells(Zeile, 2).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle2.Cells(Zeile, 3).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
For Zeile = 7 To Tabelle2.Cells(Rows.Count, 2).End(xlUp).Row
'Listbox befüllen'
Me.ListBox1.AddItem Tabelle2.Cells(Zeile, 2).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Tabelle2.Cells(Zeile, 3).Value
Next Zeile
'Erstes element auswählen'
Me.ListBox1.Selected(0) = True
End Sub
Ich nehme an , das wer hier eine Idee dazu hat (die ich nachvollziehen kann....)
Dank
VG
Stefan