Hallo
Ich habe folgendes Problem:
mit folgendem Cade befülle ich die Listbox:

Private Sub ComboBox1_Click()
Set wsf = WorksheetFunction
ListBox1.Clear
With Tabelle1
lezeile = .Cells(Rows.Count, 3).End(xlUp).Row 'letzte Zeile
anz = wsf.CountIf(.Range("C6:C134"), ComboBox1.Value)
If Tabelle1.FilterMode Then
.ShowAllData
End If

For a = 1 To lezeile
If .Cells(a, 3) = ComboBox1.Value Then

With ListBox1
.AddItem
.ColumnWidths = "2cm;12cm;3cm"
.List(.ListCount - 1, 0) = Format(Tabelle1.Cells(a, 18).Value, "0.00 €")
.List(.ListCount - 1, 1) = Tabelle1.Cells(a, 2).Value & " " & Tabelle1.Cells(a, 4).Value
.List(.ListCount - 1, 2) = Tabelle1.Cells(a, 6).Value
End With
End If
Next a
End With
End Sub

dies ist der Part mit der Hyperlink Adresse:
.List(.ListCount - 1, 2) = Tabelle1.Cells(a, 6).Value
dort steht in der listbox dann z.B. folgendes:
#Tabelle2!P22
mit dem folgende code möchte ich nun dem Link folgen , Habe ich hier im Forum gefunden.

Private Sub ListBox1_Click()
With ListBox1
ActiveWorkbook.FollowHyperlink Address:=.List(.ListIndex, 2)
End With
End Sub

Dieses funktioniert nicht.
Auf Formelebene funktioniert der Hyperlink
#Tabelle2!P22

Der Hyperlink auf Formelebene funktioniert ordnungsgemäß .
Dieses möchte ich nun in VBA mit einem entsprechnenden Klick auf die listbox zeile umsetzen.

Grüße jörg