Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Werkzeug
BildScreenshot zu Werkzeug Werkzeug-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema ListBox
BildScreenshot zu ListBox ListBox-Seite mit Beispielarbeitsmappe aufrufen

Aus Listbox Hyperlink

Betrifft: Aus Listbox Hyperlink von: Keiler
Geschrieben am: 20.11.2014 09:36:50

Hallo zusammen,
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

  

Betrifft: AW: Aus Listbox Hyperlink von: Keiler
Geschrieben am: 21.11.2014 06:54:13




 

Beiträge aus den Excel-Beispielen zum Thema "Aus Listbox Hyperlink"