Hallo VBA-Forum,

ich habe ein spezielles Problem und hoffe hier auf Hilfe.

1. Wir haben eine Inventurliste mit vielen Daten.

2. In der Inveturliste befindet sich auch eine Spalte mit Info, welche Hyperlinks zu PDF-Dokumenten enthält.

3. Ich habe nun per VBA eine Suchfunktion erstellt, welche mir die Ergebnisse in einem bestimmten Bereich der Tabelle ausspuckt.

Jedoch werden die Hyperlinks nicht als Links sondern nur als Text in den Suchergebnissen angezeigt.

Es handelt sich um folgende Zeile: 

Cells(intgef - 1, 10) = Cells(intbereich, 6)

Diese besagt. dass beim gefundenen Eintrag der Hyperlink aus Spalte 6 in die Suchergebnisse der Zeile 10 kopiert wird. Es wird aber leider nur der Text kopiert.

Hier der gesamte Code:

Public Sub Instrsuche()
    Dim intwort, intbereich, intergebnis, intgef As Integer
    Dim loletzte As Long

    Range("F2:L25").ClearContents
    intgef = 2
    loletzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row + 1, 65536)
    intwort = InputBox("Suchbegriff")
    For intbereich = 1 To loletzte
        If InStr(1, Cells(intbereich, 1), intwort, vbTextCompare) Then
            Cells(intgef, 6) = Cells(intbereich, 3)
            intergebnis = intbereich
            
            intgef = intgef + 1
            Cells(intgef - 1, 7) = Cells(intbereich, 2)
            Cells(intgef - 1, 8) = Cells(intbereich, 4)
            Cells(intgef - 1, 9) = Cells(intbereich, 5)
            Cells(intgef - 1, 10) = Cells(intbereich, 6)
            Cells(intgef - 1, 11) = Cells(intbereich, 7)
            Cells(intgef - 1, 12) = Cells(intbereich, 8)
        End If
    Next intbereich
End Sub

Vielen Dank für eure Hilfe!

Marcel