Ich habe eine ListBox der mir gefilterte Werte anzeigt.
In der Spalte "O" habe ich Hyperlinks hinterlegt.
Diese sollten bei Doppelklick aufgerufen werden.
In der ListBox werden sie mir als Text angezeigt.
Hätte es mit den Code "
Private Sub ListBox1_Click()"
probiert, das funktioniert aber leider nicht.
Könnte mir bitte jemand weiterhelfen?
Danke, Heinz
Private Sub UserForm_Activate()
Dim intErsteSpalte As Integer, intErsteZeile As Integer
'Jetzt wird der temporäre Bereich gelöscht und die gefilterte Liste dorthin kopiert :
intErsteSpalte = 235 'Spalte IA
intErsteZeile = 10000 ' Ab Zeile 10000
Range(Cells(intErsteZeile, intErsteSpalte), Cells(Rows.Count, Columns.Count)).ClearContents
[A1].CurrentRegion.Copy Cells(intErsteZeile, intErsteSpalte)
With ListBox1
.ColumnCount = True
.ColumnWidths = "0 cm;2,6 cm;1,3 cm;6 cm;5 cm;5 cm;2,3 cm;0,6 cm;0,4 cm;0,6 cm;1,3 cm;0 _
cm;3,5 cm;6,5 cm;19,5 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm;0 cm"
.Font.Size = 10
.RowSource = Cells(intErsteZeile, intErsteSpalte).CurrentRegion.Address
End With
'MsgBox ListBox1.RowSource 'Nur zur Kontrolle
End Sub
Private Sub ListBox1_Click()
ActiveWorkbook.FollowHyperlink Address:=Cells(ListBox1.ListIndex + 1, 1).Hyperlinks(1). _
Address, _
NewWindow:=True
End Sub