AW: VBA Hyperlink erzeugen
24.01.2020 10:11:45
MarC
Hallo Beverly,
ich habe gestern Nacht im Internet einen ähnlichen Beitrag gefunden und den dortigen Code etwas verändert. Dieser funktioniert, aber das Excel File steigt wegen der Auslastung kurz aus "keine Rückmeldung". Nach so 20 - 30 Sekunden kann ich dann wieder arbeiten und alle Files die vorhanden sind wurden gefunden und verlinkt.
Es ist zwar nicht schlecht das ich was gefunden habe, aber ich verstehe den Code nur zum Teil und mir wäre dein Lösungsweg lieber, weil ich denke das dein Code schneller ist und die Excel Datei dabei nicht aussteigt.
Vielleicht kann man aber auch den Code den ich gefunden habe beschleunigen oder du weißt warum bei deinem Code die Meldung "Laufzeitfehler 53" kommt. Wenn ich irgendwie helfen könnte =(
Option Explicit
Declare Function SearchTreeForFile Lib "imagehlp.dll" ( _
ByVal RootPath As String, _
ByVal InputPathName As String, _
ByVal OutputPathBuffer As String) As Long
Sub Test()
Dim Retval As Long, TmpStr As String * 256
Dim lngzeile As Long
Dim lngletzte As Long
lngletzte = Columns(8).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious). _
Row
For lngzeile = 8 To lngletzte
If Cells(lngzeile, 8) "" Then
Retval = SearchTreeForFile("\\xxxxxxxxxxxxx\xxxx\xxxxxxxxxxxxxx\xxxxxxxxxx\ _
xxxxxxxxxxxxx\xxxxxxxxxxxxxxxxxxxxxxxx\", Cells(lngzeile, 8) & ".pdf", TmpStr)
If Retval = 0 Then
Cells(lngzeile, 9).Value = "nicht gefunden/vorhanden"
Else
Cells(lngzeile, 9).Hyperlinks.Add Anchor:=Cells(lngzeile, 9), Address:=TmpStr, _
TextToDisplay:=Cells(lngzeile, 8).Value
End If
End If
Next lngzeile
End Sub