VBA suchen und verlinken
30.04.2020 11:08:03
MarC
1. Ich habe eine Funktion die meine Ordner nach Begriffen durchsucht die in den Zellen stehen und diese dann verlinkt. Das funktioniert fast perfekt, doch leider bleibt die Funktion ab und an mit der Fehlermeldung Laufzeitfehler 5 stehen. Kann das an der anzahl der Suchbegriffe liegen oder an der Länge der Ordner + Länge des Dateinamen? In den Variablen steht die Zellenposition an der der Code stehen geblieben ist nur leider hilft mir das nicht weiter.
2. In manchen Zellen stehen zwei oder mehr Begriffe drin die durch ein Leerzeichen oder eine Zeile getrennt sind. Jeder Begriff steht für einen Dateinamen. Jetzt möchte ich wenn mehr als ein Begriff in der Zelle steht die Zelle mit dem Ordner in dem sich eine der Begriffe befindet verlinkt wird. Aktuell ist es so das nur Zellen verlinkt werden in denen sich ein Begriff befindet und auch nur dann wenn der Begriff bzw. Dateiname in einem Ordner gefunden wird. Könnte mir bitte jemand bei der Erweiterung helfen? Ich müsste praktisch prüfen ob mehr als ein Begriff drin steht wenn ja dann das wenn nicht dann das^^
Mein Code sieht aktuell so aus:
Sub Search_File()
Dim Retval As Long, TmpStr As String * 256
Dim lngZeile As Long
Dim lngSpalte As Long
Dim lngLetzte As Long
Dim Index As Integer
lngLetzte = Columns(2).Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious). _
Row
For lngZeile = 8 To lngLetzte
For lngSpalte = 5 To 8
If Cells(lngZeile, lngSpalte) = "" Then
Cells(lngZeile, lngSpalte).Interior.Color = 255
Else
Retval = SearchTreeForFile("\\C\blablabla, Cells(lngZeile, lngSpalte) & ".pdf", _
TmpStr)
If Retval = 0 Then
Cells(lngZeile, lngSpalte).Interior.Color = 14474460
Else
Cells(lngZeile, lngSpalte).Hyperlinks.Add Anchor:=Cells(lngZeile, lngSpalte) _
, Address:=TmpStr, TextToDisplay:=Cells(lngZeile, lngSpalte).Value
End If
End If
Next lngSpalte
Next lngZeile
End Sub