ich habe folgendes letztes Problem, bevor ich mein erstes VBA Projekt komplett abschließen kann:
- Ich lasse meine ListBox1 mit den Zelleninhalten aus dem Sheet ("Errors") füllen
- Den Zelleninhalten aus dem Sheet ("Errors") sind Links hinterlegt (Beim klicken auf die Links springt die Datei auf Sheet ("Materials"))
Soweit funktioniert auch alles.
Jetzt hätte ich gerne per Doppelklick auf eine Zeile in der ListBox, dass nachdem Wert der ListBox im Sheet("Errors") gesucht wird und der entsprechende Link ausgeführt wird (d.h. im ganzen wenn doppelklick listbox -> wert in "Errors" suchen -> link ausführen -> in entsprechende verlinkte Zelle in "Materials" springen)
Mein Ansatz war folgender:
Hinterlegen des Hyperlinks in den Zellen des Sheets ("Errors") - funktioniert
Sheets("Errors").Hyperlinks.Add Anchor:=Sheets("Errors").Cells(Rows.Count, 1).End(xlUp), _
Address:="", _
SubAddress:="Materials!" & zelle.Address(False, False), _
TextToDisplay:=Sheets("Errors").Cells(Rows.Count, 1).End(xlUp).Value
Füllen ListBox mit Werten aus Sheet ("Errors") - funktioniert
lzeile = Worksheets("Errors").Cells(Rows.Count, 1).End(xlUp).Row
For a = 1 To lzeile
UserForm1.ListBox1.AddItem Worksheets("Errors").Cells(a, 1).Value
Next a
lzeile2 = Worksheets("Errors").Cells(Rows.Count, 2).End(xlUp).Row
For b = 1 To lzeile2
UserForm1.ListBox1.AddItem Worksheets("Errors").Cells(b, 2).Value
Next b
Doppelklick auf wert in Listbox und dadurch Hyperlink aktivieren der den Zellen in Sheet("Errors") hinterlegt ist - funktioniert nicht
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim rngFund As Range
Dim strSuchbegriff As String
strSuchbegriff = Me.ListBox1.List(ListBox1.ListIndex, 0)
Set rngFund = Sheets("Errors").Range("A:B").Find(strSuchbegriff, _
LookIn:=xlValues, LookAt:=xlWhole)
If Not rngFund Is Nothing Then
ActiveWorkbook.FollowHyperlink Address:=rngFund.Address(False, False)
Unload Me
End If
End Sub
Hier eine Beispiel Datei:https://www.herber.de/bbs/user/153408.xlsm
Wäre super wenn sich hier eine Lösung finden lässt.
Danke bereits im voraus.
Grüße Kev