Suchen mit Listbox
11.11.2018 15:29:05
Marquardt
ich habe ein kleines Problem mit der Suche und Ausgabe in einer Listbox.
Nach Eingabe in die TextBox und erfolgreicher Suche, werden alle Einträge (Zeilennummer vom Tabellenbaltt) in der Listbox aufgeführt. Ich benötige aber noch den Inhalt der Spalte A.
Private Sub CommandButton1_Click()
Dim zelle As Range
Dim strZelle As String
With ActiveSheet.UsedRange
Set zelle = .Find(TextBox1.Value, LookIn:=xlValues)
If Not zelle Is Nothing Then
strZelle = zelle.Address
Do
ListBox1.AddItem zelle.Address
Set zelle = .FindNext(zelle)
Loop While zelle.Address strZelle
End If
End With
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If ListBox1.Value "" Then
Application.Goto ActiveSheet.Range(ListBox1.Value), True
End If
End Sub
Vielen Dank.