Aus Listbox Hyperlink
20.11.2014 09:36:50
Keiler
bin schon seit Tagen am suchen.
Habe bis jetzt jedoch noch keine Lösung gefunden.
Vielleicht kann mir hier jemand helfen.
So.. dann leg ich mal los
Ich befülle eine Listbox in einer Userform mit Daten aus einer anderen Arbeitsmappe.
Diese Daten befinden sich in der 2.ten Tabelle und sind mit Hyperlinks versehen mit denen man in ein bestimmtes Tabellenblatt in der Arebeitsmappe springen kann.
Das einlesen in die Listbox klappt auch gut.
Nur die Sache mit dem Hyperlink geht nicht.
Hier mal das einlesen in die Listbox:
vielelicht ist da etwas schon falsch.
------------------------------------
Private Sub UserForm_Initialize()
Dim zeile As String
'Artikelmerkmale lesen
zeile = ActiveCell.Rows.Row
lblNr.Caption = Range("A" & zeile).Value
lblBen.Caption = Range("D" & zeile).Value
lblLief.Caption = Range("G" & zeile).Value
lblBNr.Caption = Range("H" & zeile).Value
Application.ScreenUpdating = False
Dim c
Dim strPath, f As String
Dim strFile As String
Dim strTable, strSuch As String
strSuch = Range("A" & zeile).Value
strPath = "L:\DNC\Werkzeugausgabe\Bestellungen\" 'anpassen
strFile = "BestellungenTest.xlsm" 'anpassen
strTable = "Matrix" 'anpassen
f = strPath + strFile
Workbooks.Open (f)
Workbooks(strFile).Sheets(2).Activate
On Error Resume Next
x = [A:A].Find(strSuch, LookAt:=xlWhole).Row
If x = 0 Then
ListBox1.ColumnCount = 1
ListBox1.AddItem "Keine Bestellung gefunden"
Else
leSpalte = ActiveSheet.Cells(x, 1000).End(xlToLeft).Column
Set Bereich = ActiveSheet.Range(Cells(x, leSpalte), Cells(x, 4))
a = 0
b = 0
For Each c In Bereich
ListBox1.ColumnCount = 2
text1 = c ' Zeichenfolge erstellen.
ersteswort = Mid(text1, 1, 10) ' Liefert "Mid".
zweiteswort = Mid(text1, 14, 6)
ListBox1.AddItem
ListBox1.List(a, 0) = ersteswort
ListBox1.List(b, 1) = zweiteswort
a = a + 1
b = b + 1
Next c
End If
Windows(strFile).Activate
ActiveWorkbook.Close SaveChanges:=False
a = 0
b = 0
Application.ScreenUpdating = True
End Sub
-------------------------------------------
Ich würde mich über eine Lösung sehr freuen.
https://www.herber.de/bbs/user/93900.xlsm
https://www.herber.de/bbs/user/93901.xlsm
Grüße
Keiler