Hallo Zusammen,
vorab, ich habe die SuFu genutzt, konnte mein Problem damit jedoch nicht lösen und bin langsam am verzweifeln.
Ich möchte Hyperlinks (PDF`s) auf Funktionsfähigkeit testen und bei false die Zelle rot markieren und den Inhalt auf "leer" setzen .Bei true soll die Zelle nur grün hinterlegt werden. Der Link kann stehen bleiben.
Leider funktioniert das mit dem Makro, welches ich nutzen möchte nicht ganz.
Mit VBA habe ich mich erst seit drei Tagen, aufgrund dieses Problems, beschäftigt. Daher habe ich nicht wirklich viel Hintergrundwissen.
Die Exceltabelle und Ordnerstruktur sehen wie folgt aus:
Hier sollen jetzt alle Links von "C8:G1000" auf funktionalität geprüft werden und entsprechend eingefärbt werden.
Es handelt sich immer nur um PDF´s nach dem Schema "LEB_xxxx.xxx.xxx.pdf" ). Die Struktur habe ich in den Anhang getan!
PS: Falls es wichtig ist. die Pfade im Netzwerk sehen wie folgt aus \\emea.test.com\XXX\TeamXY\Dokumente
Bisher habe ich nur ein Script, welches absolute, jedoch keine relativen, Links prüfen kann:
Ich wäre über Hilfe sehr Dankbar!
Gruß,
Joarden
vorab, ich habe die SuFu genutzt, konnte mein Problem damit jedoch nicht lösen und bin langsam am verzweifeln.
Ich möchte Hyperlinks (PDF`s) auf Funktionsfähigkeit testen und bei false die Zelle rot markieren und den Inhalt auf "leer" setzen .Bei true soll die Zelle nur grün hinterlegt werden. Der Link kann stehen bleiben.
Leider funktioniert das mit dem Makro, welches ich nutzen möchte nicht ganz.
Mit VBA habe ich mich erst seit drei Tagen, aufgrund dieses Problems, beschäftigt. Daher habe ich nicht wirklich viel Hintergrundwissen.
Die Exceltabelle und Ordnerstruktur sehen wie folgt aus:
Hier sollen jetzt alle Links von "C8:G1000" auf funktionalität geprüft werden und entsprechend eingefärbt werden.
Es handelt sich immer nur um PDF´s nach dem Schema "LEB_xxxx.xxx.xxx.pdf" ). Die Struktur habe ich in den Anhang getan!
PS: Falls es wichtig ist. die Pfade im Netzwerk sehen wie folgt aus \\emea.test.com\XXX\TeamXY\Dokumente
Bisher habe ich nur ein Script, welches absolute, jedoch keine relativen, Links prüfen kann:
Quellcode
- Option Explicit
- Option Compare Text
- Sub hyperlinksTesten()
- Dim HyperL As Hyperlink, Addresse As String, t As String
- Dim fso As Object, rng As Range
- Set fso = CreateObject("Scripting.FileSystemObject")
- For Each HyperL In ActiveSheet.Hyperlinks
- If Not HyperL.Address Like "*\*" Then
- Addresse = ActiveWorkbook.Path & "\" & HyperL.Address
- Else
- Addresse = HyperL.Address
- End If
- ' Addresse = "Test"
- If Not fso.FolderExists(Addresse) And Not fso.FileExists(Addresse) Then
- Set rng = HyperL.Range
- t = rng.Text
- HyperL.Delete
- rng.Value = "ERROR: " & t
- rng.Font.ColorIndex = 3
- End If
- Next
- Set fso = Nothing
- End Sub
Ich wäre über Hilfe sehr Dankbar!
Gruß,
Joarden