Listbox zeigt nicht alle treffer an
01.09.2019 19:29:29
Dominik
der nachfolgende code soll alle gleichen zahlen aus textbox 17 in tabelle2 spalte A suchen und die gefunden werte in der listbox mit den spalteninhalten von b:d neben dem gefunden wert ausgeben.
jetzt findet der code zwar alle gleichen zahlen, gibt mir in der listbox aber nur die letzte gleiche gefunden zahl mit den spalten daneben in der listbox aus, und von den anderen gefunden werten nur die zahlen ohne der spalten daneben.
2. frage: nachdem alle gefundenen treffer in der listbox angezeigt werden, würde ich gerne durch klick auf z.b. den ersten wert in der listbox einen hyperlink öffnen der auch auf tabellenblatt 2 in spalte F steht. und wenn ich den zweiten wert in der listbox anklicke soll hier auch der entsrpechende link geöffnet werden.
Private Sub CommandButton1_Click()
Dim rng As Range
Dim strFirst As String
ListBox5.Clear
With Sheets("Tabelle2")
Set rng = Sheets(2).Range("P:P").Find(What:=TextBox17.Value, LookIn:=xlValues, LookAt:= _
xlWhole)
If Not rng Is Nothing Then
strFirst = rng.Address
ListBox5.ColumnCount = 4
Do
ListBox5.AddItem rng.Value
ListBox5.List(I, 1) = Sheets(2).Cells(rng.Row, 4)
ListBox5.List(I, 2) = Sheets(2).Cells(rng.Row, 5)
ListBox5.List(I, 3) = Sheets(2).Cells(rng.Row, 6)
Set rng = Sheets(2).Range("P:P").FindNext(rng)
Loop While Not rng Is Nothing And strFirst rng.Address
End If
End With
Set rng = Nothing
End Sub
gruß Dominik
Anzeige