ich mal wieder mit meinen Hyperlinks :-)
In einer Excel mappe habe ich in der Spalte B viele Hyperlinks. Nun habe ich mir dazu eine Suchmaske gebaut. Eine Userform mit einem Textfeld zur Eingabe für die Suche , ein Button und eine Listbox.
So, wenn ich nun in die Textbox einen Begriff eingebe, dann den Button klicke, (siehe Code unten) , dann werden mir alle Hyperlinks in der Spalte B angezeigt, die den eingegebene Begrif enthalten.
Private Sub CommandButton1_Click()
With UserForm1
.ListBox1.Clear
Sheets("Links").Activate
e = 0
For i = 2 To ActiveSheet.UsedRange.Rows.Count
If InStr(LCase(Cells(i, 2).Value), LCase(.TextBox1.Value)) > 0 Then
.ListBox1.AddItem Cells(i, 1).Value
.ListBox1.Column(1, e) = Cells(i, 2).Value
.ListBox1.Column(2, e) = Cells(i, 3).Value
e = e + 1
Else
End If
Next i
End With
End Sub
So, ich würde nun gerne einen zweiten Button einbauen, der , wenn ich in der Listbox einen Eintrag angeklickt habe, diesen Hyperlink öffnet. Geht das ? Wenn ja, wie ?
Danke mal
Jockel