Listbox inhalt als Hyperlinks
Werner
Ich brauche mal wieder eure Hilfe!
Mit folgendem Code kriege ich 2 Spalten in einer Listbox (Userform) dargestellt:
Private Sub UserForm_Initialize()
Dim arr
arr = Sheets("Tabelle1").[A2:B30]
With ListBox1
.ColumnCount = 2
.ColumnWidths = "6cm;4cm"
.List = arr
End With
End Sub
In der 2. Spalte stehen Fundstellen aus einer Suche (z. B. Tabelle1!$A$31)
Das heißt, der Fernseher xyz steht in Tabelle1 bei Zelle A31
Lassen sich diese Fundstellen und der Text davor als Hyperlink in der Listbox darstellen?
Also wenn man darauf klickt soll man bei der entspr. Zelle landen.
Das Userform mit der Listbox soll dabei mitwandern. Oft stehen nämlich mehrere Fundstellen im Fenster.
Vielen Dank im Voraus!!!
Werner
Anzeige